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ABSTRACT 

This report documents a computer model developed to aid 
in designing a regional solid waste management system with the 
option of waste reclamation. Input to the model consists of 
data on the amount of waste generated at each source, location 
and size limits of possible transfer stations, incinerators, 
separation plants and landfills, cost of such facilities, and 
haulage costs between locations. After preliminary editing and 
calculations from the raw data, a mixed integer program 
selects those facilities and material flows which will minimize 
total system cost, net of any revenue from reclaimed materials. 
The resulting solution is printed out in summary and detailed 
form for examination. By making minor modifications to the 
input, the user can analyse a variety of different scenarios to 
aid in his final system selection. 
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MODEL OVERVIEW 



CHAPTER ONE 
INTRODUCTION 

1.1 Report Format 

The report is divided into three parts and an appendix. The first part 
describes the main features and applicability of the model. The se :ond 
part, the User's Guide, describes the data needed by the model and the 
format in which it should be prepared. Error messages from the Edit and 
Setup Program are listed and the meaning of the model output is discussed. 
The steps which should be followed in the early stages of using the model 
for a regional study are also outlined. The third part, the Programmer's 
Guide, is made up of a chapter on how to set up and run the model on a 
CDC computer, a chapter on how to set up and run the model on an IBM 
computer, and detailed documentation of the Edit and Setup Program (ESP) 
and the Report Writer Program (RWP). The appendices include the 
mathematical formulation of the model, sample output reports, and listings 
of the ESP and RWP. 

The report makes no attempt to compare the model with other 
models available for a similar purpose. For a detailed review of other 
models the reader should see reports (7,8) cited in the References. 

1.2. The Model 

The model is intended to help a decision-maker in choosing the best 
solid waste management system (SWMS) to implement in a particular 
region over some specified time horizon. The analysis starts with the 
following information: 

a) a given planning horizon for the regional study 

b) a number of sources of waste (unit generating areas) and their 
predicted waste generation over the planning horizon 

c) possibly a number of existing facilities (transfer stations, 
incinerators, landfills) and their operating costs and throughput 
limits 
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d) a number of potential facilities (transfer stations, reclamation 
plants, landfills) and their capital and operating costs and 
throughput limits 

e) if waste reclamation is an option, details for each market 
location of price payable and the upper limit on the amount of 
material the market location will purchase 

f) transport costs along all links which might be used in the SWMS. 

Given all the above information, the model will select the SWMS 
which disposes of all the waste and satisfies all constraints at least net 
cost. Figure 1 illustrates a typical region with a number of sources from 
which the waste must be removed and potential processing and disposal 
facilities. Figure 2 illustrates the facilities and material shipments 
selected by the model. 

In practice the decision-maker may not be sure of all the data in the 
above list or might wish to examine the effect of making different 
facilities available or tightening various constraints. Only minor 
modifications of the input file are needed to change critical data. With 
such changes the user of the model can examine the results for a variety of 
different scenarios. 

There are two outputs from the model. The first lists in detail the 
data entered and some of the intermediate calculated values. This allows 
the user to check that the data are as intended, and provides a listing for 
later reference. The second lists the solution found by the model, including 
system cost, facilities used, facility costs and throughput, material flows 
and transportation costs. 

1.3 Computer Requirements 

The model has been designed to run on a larger computer of Control 
Data Corporation (CDC) or International Business Machines (IBM). The 
CDC version of the model uses the package program APEX-HI with the 
mixed integer module while the IBM version uses the package MPSX with 
the mixed integer module MiP. Any CDC computer large enough to run 
APEX-III with the mixed integer module, or any IBM computer which can 
run MP5X-MIP, can run the rest of the model which is programmed in 
FORTRAN IV. 



FIGURE I - TYPICAL COMPONENTS IN A REGIONAL SOLID WASTE MANAGEMENT SYSTEM 
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FIGURE 2 - A COMPUTER GENERATED SOLID WASTE MANAGEMENT SYSTEM 
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CHAPTER TWO 
MODEL DESCRIPTION 

This chapter describes the model without going into great details 
about data preparation, which is described in Part II or specific 
programming details, which are given in Part IM. 

Figure 3 is a system flowchart of the model. The model is made up 
of three programs, the Edit and Setup Program (ESP), the Mixed Integer 
Program (MIP) and the Report Writer Program (RWP). The programs must 
be run in this sequence, though intermediate files may be saved until the 
user is satisfied that the data are correct and a program has performed 
satisfactorily before running the next program. 

2.1 The Edit and Setup Program 

The ESP takes raw data in a form convenient to the user and, after 
checking for inconsistencies, prepares files to be used by the MIP and RWP. 
The user has the option of listing all input and all calculated values, only 
part of the input and calculated values, or only error messages. 

The first few cards read in by the program are titles and basic 
information such as discount rate to be used on cash flows, number of 
sources, possible transfer stations, plants, landfills, vehicle names and 
vehicle operating costs. 

For each source the total waste quantity generated over the study 
period must be given. The user can do this in several formats involving 
total annual generation, per capita generation rates, population and 
population growth rates. 

For each possible transfer station, plant and landfill, the user must 
provide capital and operating costs and an upper limit on facility capacity. 
For plants, the proportion of waste lost in processing or recovered as 
various resources must be specified. The user can specify whether each 
facility must be available in the computer run, should be excluded from the 
run, or whether the MIP should decide to use or not use the facility. If the 
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FIGURE 3 - SCHEMATIC OF THE MODELLING SYSTEM 



f^ 



INPUT 
DATA 






MtW CONTROL 
PROSKAM 



EDIT AMD CETUF 
PIIOfiltAM 

<E3P1 



T 
FILE 





FILE 



CARD TO SET 

SUBTOTALS ON 



MIXED INTCaCM 
PII06RAH 
(APEX-nC/MPJX-MIP) 



DATA REPORT 
ANO ERROR 
MESSAGES 



SOLUTION 

fILE 



REPORT WRITER 

PROCRAM 

(R«P) 



MIP 

SOLUTION 

REPORT 



S«MS 
REPORTS 



analysis allows for resource recovery, data are required on material price 
and demand at the various market locations. 

The final part of the raw data details every transportation link in the 
model along which material might flow. The origin, destination, travel 
time and vehicle to be used on the link are specified. 

2.2 The Mixed Integer Program 

The MIP package used is either APEX-III (1) if the model is run on a 
CDC computer, or MPSX-MIP (5,6) if the model is run on an IBM computer. 
Both packages search for the minimum cost SWMS using the Simplex and 
Branch-and-Bound algorithms (^^,9). While each package uses the same 
data, similar algorithms to search for the minimum cost SWMS, and 
produce the same result, the format of their input and output files is 
slightly different. This, together with the slight difference in CDC and 
IBM FORTRAN is the reason for two versions of the model. 

2.3 The Report Writer Program 

The RWP uses the output from the MIP and a file of location names 
passed from the ESP to produce a number of reports on the best system 
found by the MIP. The reports produced are: 

1. Executive Summary - this summarizes system capital and 
operating cost, facilities used, markets supplied, and a cost 
breakdown by type of facility. 

2. Waste Generation Area Shipments - this lists the shipments of 
waste from each source, the cost of shipping and their 
destinations. 

3. Waste Generation Area Shipments Cost Summary - this lists,, 
for each source, total and weighted average cost of 
transporting the waste from the source to its destination (s). 

if. Facility Shipments - this lists the quantity of material shipped 
from each intermediate facility (transfer station or plant) 
together with the cost of shipping and destination. 

5. Detailed Report of Facility Operations - this lists for each 
transfer station, plant or landfill, the total annual and per tonne 
capital, operating and transportation costs (in the case of an 
intermediate facility). 



6. Marketing Report - this lists for each market location, by 
product, the total amount of resource received and total 
revenue obtained. 
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USER'S GUIDE 



CHAPTER THREE 

THE MODELLING APPROACH 

This chapter describes the approaches taken in modelling the major 
components of a solid waste management system (SWMS) and how the 
mathematical formulation and computer model are derived. For further 
information the user should read the detailed description of the Edit and 
Setup Program (ESP) in Chapter Seven, and consult a standard Operations 
Research text such as Ct, 9) for explanation of the mixed integer program 
formulation and solution procedure. This chapter aims only to explain the 
modelling sufficiently that the user understands how to prepare the data 
and read the model output. 

3.1 A One-Period Model 

It is important to remember in all that follows that the Ontario 
Waste Management Model is a one-period model. This means that the 
facilities the model chooses to use, the size and throughput of these 
facilities, and the pattern of material shipments do not change within the 
period modelled. This does not preclude the user from dividing the total 
study horizon into several periods and anlysing each separately. It means 
only that the model does not deal with several periods simultaneously. 

3.2 Modelling Source Generation 

The first information required by the mode! is an estimate for waste 
quantity generated. It is assumed that the study region is divided into unit 
generating areas which, for the purposes of the model, can be treated as 
point sources. The model needs data on the amount of waste generated at 
each source over the whole period. The amount may be given in a variety 
of formats depending on the availability of data. 

3.3 Modelling Transportation Costs 

Two factors are used to calculate the cost of moving a tonne (metric 
ton) of material along a transportation link. The first is the haulage cost 
per tonne per hour on the vehicle which will be used. The second is the 
round-trip travel time on the link. Up to eight different kinds of vehicles 



can be used in the model. Their costs are entered in the vehicle subfile. In 
the transportation link subfile, for each link the origin, destination, type of 
vehicle to be used, (effectively giving the cost per tonne per hour) and the 
round trip travel time are given. 

Since transportation costs are incurred in every year of the period, 
they are discounted back to day one of the first year. 

3A Modelling Facility Operating Costs 

The throughput of a facility (transfer station, incinerator, separation 
plant, landfill) is decided by the model and can take any value between the 
lower and upper limits specified by the user. Thus the model needs an 
operating cost curve, rather than just the cost for a single throughput. The 
user provides operating cost figures for a number of different throughputs 
of the same facility and the model calculates linear regression coefficients 
using the method of least squares. The 'fixed' cost is assumed to be 
incurred if the facility has any throughput above zero. If just one 
throughput cost figure is entered, then a fixed cost will be used for any 
throughput greater than zero. 

Since operating costs are incurred over each year of the period they 
are discounted back to day one of the first year. 

3.5 Modelling Facility Capital Costs 

Before a facility can be operated, it must be built or developed. If it 
already exists, it may be available at zero capital cost. Then a single 
capital cost figure of zero can be put in the model. Improving or expanding 
an existing facility, or developing a new one, incurs a capital cost which 
the model assumes to be spent on day one of the first year. However, the 
user is given the option of making the payment either as an amortization 
stream or as one or more lump payments. Amortization payments or lump 
payments are discounted by the model to day one of the first year. 

The capacity of the facility will be the same as the throughput which 
is decided by the model (an exception is an existing facility for which the 
capital cost figure is zero; then the existing capacity is the figure entered 
for limit on throughput). The model derives a capital cost curve by linear 
regression on two or more different sizes of the facility. If cost 
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information is given for just one size of facility, then this cost is assumed 
for any size greater than zero. 

3.6 Modelling Markets 

Markets are classified by resource recovered and by location within 
each resource. For each marl<et location the user provides the annual 
demand and the price payable per tonne. Shipments will result in a steady 
stream of revenue, so this is discounted to day one of year one of the 
period. 

3.7 The Mixed Integer Formulation 

Finding the 'best' SWM5 comes down to deciding which of the possible 
facilities should be used, their throughputs and what material should be 
shipped where. 'Best' is taken to mean minimum total discounted cost. 
This is made up of facility capital costs, facility operating costs, 
transportation costs, less any revenue from sales of recovered materials. 

Any system must satisfy a large number of constraints. Obviously all 
waste must be removed from sources and all material entering an 
intermediate facility must leave it or be lost in processing. Upper limits 
apply to facility throughput and shipments to market locations. 

Some constraints which are included in the formulation and may be 
set by the user to explore different scenarios or environmental policies are 
i) limit on total tonnes of waste landfilled (this can be used 

to force incineration or reclamation) 
11) limit on capital expenditure 
iii) limit on the number of transfer stations 
iv) limit on the number of plants (incinerators and 

reclamation plants) 
v) limit on the number of landfills. 

Because facility costs are modelled as a fixed cost plus a variable 
cost proportional to throughput, and transportation costs and revenue are 
directly proportional to quantity, the problem of finding the lowest cost 
SWMS can be modelled as a mixed integer program (MIP) (See C*) or (9)). 
Finding the lowest cost SWMS that satisfies ail constraints, is performed by 
either the Control Data Corporation package APEX-llI (1) or the 
International Business Machine package MPSX-MIP (5,6). 



11 



3.8 Pegging Facilities 

As stated above, the MIP solution package decides which facilities 
should be used or not used, their related throughputs and material flows. 
However, in exploring different options the user nnay wish to 'lirnit the 
choice' of the MIP and specify in one computer run that certain facilities 
must not be used, or others must be used. The ability to do this is built 
into the model. The user simply specifies a parameter which defines the 
status of a facility as 'not used', 'used' or 'model decides'. Specifying the 
status as 'not used' or 'used' will be referred to as pegging. In a run of the 
model, none, some, or all of the facilities may be pegged. 

[f a facility is pegged as 'not used' the meaning is obvious: the 
facility will not form part of the SWMS formed by the model, will have no 
throughput, and will incur no cost. If a facility is pegged as 'used' the 
effect is a little less obvious: the model is forced to incur the fixed capital 
and operating costs of the facility whether or not it has any throughput . 
Effectively the user forces the model to commit the facility fixed costs (as 
derived in the capital and operating facility cost regressions) and after that 
lets the model decide throughput. Note, however, the user may also force 
throughput by specifying a lower limit on throughput greater than zero. 

3.9 Computer Costs 

This chapter ends with some points about computer costs of running 
the model. Costs for running the Edit and Setup Program and Report 
Writer Program will be minor but it is possible for a single run of the MIP 
on a large data base to cost a few hundred dollars. 

If the status of a facility is set as 'model decides' then this gives rise 
to an integer decision variable. The computer cost of running the MIP for 
a particular data base depends on the number of integer decision variables 
in the model. The more facilities with status 'model decides', the greater 
the computer cost of running the MIP, The more facilities pegged as 'not 
used' or 'used', the lower the cost of running the model. It is recommended 
the user set the status of a facility as 'model decides' only when he wants 
to exercise that option rather than treating it as a default. In early runs of 
the model, when the user is still confirming the input data are correct, the 
most appropriate default status for a facility is 'used'. The topic is 
discussed further in Chapter li. 
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CHAPTER FOUR 

DATA INPUT FILES 

This chapter describes in detail how to prepare data for input to the 
Edit and Setup Program and the Report Writer Program. 

*.l Numbering Conventions For Locations In The Model 

The following rules apply to allocating numeric labels for sources and 
facilities: 

1. The numbers may range between 100 and 999 

2. Using the same number for more than one location of the same 
type will cause errors. The same number may be used for 
different types of locations. For example, having two sources, 
both labelled ^+13, will cause errors, but it is acceptable to have 
a source numbered ^+13, a plant numbered ^^13 and a landfill 
numbered ^f 13. 

3. Model output follows the sequence used in entering data to the 
model and is independent of location number. For example, if 
data for source ^^13 is entered before data for source 217, then 
the output will report shipments from source ^^13 before 
reporting shipments from source 217. 

The numeric label for market location is a three digit number. The 
first digit is the resource numbers 1 to 9. The last two digits are an 
arbitrary label for location. Resources recovered are automatically 
numbered 1 to 9. The first resource named is taken as resource number 1, 
the second named is taken as resource 2 and so on. All information on 
markets for resource 1 must be entered before information on resource 2, 
and so on. For a particular resource, market locations may be given an 
arbitrary number in the range 10-99. Note that all three digits are 
required in identifying the destination end of a plant-to-market 
transportation link. 
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ft.2 Data For The Edit And Setup Program 

All the data defining the model for a particular regional study are 
entered in the Edit and Setup Program as 80 character records. The model 
is designed to use the following units: dollars, tonnes, kilometres, years, 
hours and minutes. Since the only unit conversion in the model is between 
hours and minutes, the model will work equally well with English units, but 
many of the report headings would then be misleading. 

The data file is made up of eight subfiles, some of which may be 
empty if not applicable to the particular study. For example, if the 
analysis does not include resource recovery, then the market subfile will be 
etnpty. 

The subfiles are: 

A. general parameter subfile 

B. vehicle subfile 

C. source subfile 

D. transfer station subfile may be empty 

E. plant subfile may be empty 

F. landfill subfile 

G. market subfile may be empty 

H. transportation link subfile- 
source to transfer may be empty 
source to plant may be empty 
source to landfill may be empty 
transfer to plant may be empty 
transfer to landfill may be empty 
plant to landfill may be empty 
plant to market may be empty 

The first seven subfiles are placed directly one behind the other. 
Each section of the transportation link subfile, including empty sections, 
must be ended with a card having a 9 in column 1 (Figure t and 5). 
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FIGURE 4 - ORGANISATION OF DATA FILE FOR THE EDIT AND SETUP PROGRAM 
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4.2.1 General Parameter Slubfile (number of Cards = 7) 

This subfile, made up of 7 different kinds of cards gives general 
details about the model, including number of sources, facilities and other 
counts used in reading in the next six subfiles. 



Card FORTRAN 

Type Columns Format Name Description 



l-iiO 



MO 



TITLE 



Title of Study 



1-w 


MO 


RUNNAM 


2-5 


If 


RUNBEG 


7-10 


W 


RUNEND 


11-20 


F10.2 


RATE 


M 


li 


INREP 



30 



M 



1^0 



II 



u 



II 



OUTREP 



TWRITE 



DWRITE 



Description of this run 

First year of study period 
Last year of study period 
Discount rate (%) 
Extent of output from ESP 

- error messages only 

1 - no listing of transport 

links 

2 - complete report 
Extent of output from RWP 

- executive summary only 

1 - complete report 

2 - complete report and 

unformatted listing 
of data files (for error 

diagnosis) 
Flag to write disk file for 
MIP 

- do hot wfitfe 

1 - write file 

Flag to write disk file for 
passing data from ESP to 
RWP 

- do not write 

1 - write file 
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Card FORTRAN 

Type Columns Format Name 



Description 



%5 



U 



LANDCD 



#5 



J 


11 


NUMVEC 


8-10 


13 


NUMSRC 


R-15 


12 


NUMTRF 


19-20 


12 


NUMPLT 


21^-25 


12 


NUMLFL 


m 


II 


NRESRC 


5 


11 


NUMMKT(l) 


m^ 


11 


NUMMKT(2) 


M 


11 


NUMMKTO) 


m 


ft 


NUMMKTO) 


m. 


li 


NUMMKT{5) 


M 


%l 


NUMMKT(6) 


w 


m 


NUMMKT(7) 


m 


m 


NUMMKT(8) 


m 


:H 


NUIV1MKT(9) 



Flag for linear approximation 
to landfill costs 

- (fixed & variable) landfill 

costs 

1 - linear approximation 
Number of vehicle types 
Number of sources 

Number of possible transfer 

stations 

Number of possible plants 

Number of possible landfills 

Number of resources recoverable 

Number of market locations 

for resource 1 

Number of market locations 

for resource 2 

Number of market locations 

for resource 3 

Number of market locations 

for resource 'f 

Number of market locations 

for resource 5 

Number of market locations 

for recource 6 

Number of market locations 

for resource 7 

Number of market locations 

for resource 8 

Number of market locations 

for resource 9 



Note: Card //5 will be blank if the number of resources recoverable 
NRESRC is 0. 
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Card FORTRAN 

Typ e Columns Format Name Description 



-10 



FIO.O LTOLFL 



Limit to tonnes of waste 
iandfilled for study 
region for whole period 



11-20 FIO.O LCAPTL 



Limit to capital expenditure 
($) for study region 
for whole period 



Note: In card #6, if LTOLFL is blank or zero, the program sets it 
to 999,999,999. Similarly for LCAPTL 



1-10 



FIO.O LNUMTR 



11-20 FIO.O LNUMPL 



21-30 FIO.O LNUMLF 



Limit to number of 

transfer stations allowed 

in the run. 

Limit to number of 

plants allowed in the 

run 

Limit to number of 

landfills allowed in 

the run 



4.2.2 Vehicle subfile (number of cards = 1 or 2) 

This subfile gives the name and cost per tonne per hour for haulage 
vehicles. Data is read in for NUMVEC vehicles as given by card type 
if of the general parameter subfile. 

Card FORTRAN 

Type Columns Format Name Description 



3-10 AS 

11-15 F5.3 



18-25 



A8 



VECNAM(l) Name of vehicle type 1 

COSTTHd) Cost per tonne per hour for 

vehicle I 
VECNAM(2) Name of vehicle type 2 



- m 



Type 


Columns 


Format 


Name 


Description 




26-30 


F5.3 


C05TTH(2) 


Cost per tonne per hour for 
vehicle 2 




33-itO 


A8 


VECNAMO) 


Name of vehicle type 3 




kl-i^^ 


F5.3 


COSTTH(3) 


Cost per tonne per hour for 
vehicle 3 




ii&-55 


AS 


VECNAM(t) 


Name of vehicle type ^ 




56-60 


F5.3 


COSTTH(«t) 


Cost per tonne per hour for 
vehicle 4 



Note: If required, a second card with the above format is used to enter 
VECNAM{5), C05TTH{5) to VECNAM(8), C0STTH(8). 

*.2.3 Source Subfile (number of cards = 2 X number of sources) 

This subfile gives a numeric label, a name and waste generation 
details for each source. For each source there are two cards, the first with 
identical format for each source, the second with format dependent on how 
waste generation data are entered. Data are read in for NUMSRC sources 
as given by card //'^ of the general parameter subfile. 

Card FORTRAN 

Type Columns Format Name Description 



#0 (source header card) 
1-3 13 

^-11 A8 

li 11 



SRCIDN(3) Numeric label for source 

SRCNAM(3) Name of source 

IGENTP Type of data for generating 



1 - total waste over whole 

period 

2 - total waste in first year 

with growth % 

3 - total waste in different 

years (interpolate to 
total) 



Card 



FORTRAN 



. 19 



Type 



Columns Format Name 



Description 



k - tonnes per capita and 
population in first year, 
% growth 

5 - tonnes per capita and 
population in different 
years (interpolate to 
total) 

The second card in the subfile is one of the cards //I to //5 depending on the 
value of IGENTP 



#1 



#2 







(For IGENTP = I) 
1-3 13 



11-20 



FIO.O 



(For 1GENTP=2) 



(For IGENTP = 3) 



1-3 



10 



12-15 



13 



11 



If 



IDNUMB 



TAMOMT 



Numeric label for source 
-must match SRCIDN(3) in 
preceding card 
Total waste generated over 
period (Tonnes) 



i-3 


13 


IDNUMB 


Numeric label for source 
-must match SRCIDN(J) in 
preceding card 


11-20 


FIO.O 


AMONTI 


Total waste in first year 


26-30 


F5.2 


GROWTH 


% growth in generation per 

year 



IDNUMB 

NENTRY 
lYRd) 



Card 



16-25 


FIO.O 


AMOUNT(l) 


27-30 


I'f 


IYR(2) 
FORTRAN 



Numeric label for source- 
must match SRCIDN(J) in 
preceding card 
Number of years for which 
data entered (2,3 or ^t) 
First year for data entered 
(must match RUNBEG in 
card //3 of general parameter 
subfile) 

Total waste in lYR(l) 
Second year for data entered 



20- 



Type Columns Format Name 



Description 



Note: 



m 



05 



31-40 FIO.O 

U2-t*5 If 

it6-55 FIO.O 

57-60 in 



61-70 



FIO.O 



Year of last entry 
parameter subfile 

(For IGENTP ^ i*) 
1-3 13 



11-15 



16-20 



F5.3 



F5.2 



21-30 FIO.O 

31-35 F5.2 

(For IGENTP = 5) 
1-3 13 



10 



12-15 



11 



IH^ 



16-20 



21-27 



F5.2 



F7.0 



AMOUNT(2) Total waste in IYR{2) 

IYR(3) Third year for data entered 

(if NENTRY = 3 or ff) 
AMOUNT(3) Total waste in IYR(3) 

lYR(^) Fourth year for data entered 

(if NENTRY = U) 
AMOUNTCf) Total waste in IYR(4) 

must match RUNEND in card //3 of general 



IDNUMB Numeric label for source- 

must match SRCIDN(3) 
in preceding card 

TONYRl Tonnes per capita in 

first year 

TONGRO % growth in generation 

per year 

POPYRl Population in first year 

POPGRO % growth in population 

per year 

IDNUMB Numeric label for source- 

must match SRCIDNC) 
In preceding card 

NENTRY Number of years for 

which data entered 
(2,3 or it) 

lYR(l) First year for data entered 

(must match RUNBEG 
in card #3 of general 
parameter subfile) 

TONYRC(l) Tonnes per capita in 

lYR(l) 

POP Y R( 1 ) Population in lY R( 1 ) 



Card 



FORTRAN 
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Type Columns 


Format 


Name 


Description 


29-32 


W 


IYR(2) 


Second year for data 
entered 


33-37 


F5.2 


TONYRC(2) 


Tonnes per capita in 
1YR(2) 


3&-itit 


F7.0 


POPYR{2) 


Population in IYR(2) 


i^G-H9 


I(t 


IYR(3) 


Third year for data 
entered (if NENTRY 
= 3 orf) 


50-5if 


F5.2 


TONYRC(3) 


Tonnes per capita in 
IYR(3) 


55-61 


F7.0 


POPYR(3) 


Population in 1YR(3) 


63-66 


W 


lYRCt) 


Forth year for data 
entered (if NENTRY = <*) 


67-71 


F5.2 


TONYRCCt) 


Tonnes per capita in 
lYRCf) 


72-78 


F7.0 


POPYR(it) 


Population in IYR(f ) 



Note: Year of last entry must match RUNEND in card //3 of general 
parameter subfile. 

4.2.* Transfer Station Subfile 

This subfile gives details of each existing or potential transfer 
station. The header card gives a numeric label, name, an upper and lower 
limit on throughput (if used) and status of the station f-.r this particular run 
of the model. By setting the status to (not used) a station can be 
effectively excluded from a model run without any other changes to the 
data file. 

Following each station header card are one or more cards each 
giving the capital cost which would be incurred if the station has a 
particular size. After this are one or more cards giving the annual 
operating cost which would be incurred if the station has a particular 
throughput. The number of these cards is given by the header card. Data 
is read in for NUMTRF transfer stations as given by card //^f of the general 
parameter subfile. 



Card 



FORTRAN 
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Type Columns Format Na 



me 



Description 



#0 (transfer station header card) 

1-3 13 TRFIDNU) 



15 



m: 



AS 
U 



//I A (if IWAY =0) 



11-20 
27-30 

Sl-'tO 



U 



n 



u 



FIO.O 
14 

FIO.O 



TRFNAM(J) 
TRSTAT(a) 



21-30 FIO.O TRFLLja) 



31-'tO FIO.O TRFULT(a) 



IWAY 



NCPENT 



NOPENT 



IDNUM 



THRU 
ENDPAY 

AMTPAY 



Numeric label for transfer 

station 

Name of transfer station 

Status in this run 

- not used 

1 - used 

2 - model decides 
Lower limit on annual 
throughput (if used) 
Upper limit on annual 
throughput (if used) 
Way of entering capital 
costs 

- amortization 

1 - lump payments 
Number of different 
size stations for which 
capital data entered. 
NCPENT = 1, 2, 3, 'f 
or 5 

Number of cost figures 
entered for different 
operating throughput. 
NOPENT = 1, 2, 3,4 
or 5 

Numeric label for transfer 

station - must match 

TRFIDN(3) in preceding 

header card 

Annual capacity 

Last year of amortization 

payments 

Annual amortization 

payments 
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Card 
Type 



Columns Format 



/MB (if IWAY - 1) 
1-3 



Note: 



m 



Note: 



51-60 
67-70 

71-80 



13 



FORTRAN 
Name 



IDNUM 



10 


11 


NLUMP 


U-20 


FIO.O 


THRU 


27-30 


I^^ 


lYR(l) 


31-^0 


FIO.O 


LMPPAY(l) 



FIO.O 
It 

FIO.O 



iYR(2) 



LMPPAY(2) 
1YR{3) 



Description 



Numeric label for transfer 

station - must match 

TRFIDNQ) in preceding 

header card 

Numer of lump payments 

(1,2 or 3) 

Annual capacity 

Year of first lump payment 

Amount of first lump 

payment 

Year of second lump 

payment (if NLUMP 

= 2 or 3) 

Amount of second payment 

Year of third lump payment 

(if NLUMP = 3) 

Amount of third payment 



LMPPAY(3) 

The number of cards type //I A or //IB must correspond to NCPENT 
in the preceding transfer station header card. 

Numeric label for transfer 



1-3 



13 



IDNUM 









station must match 








TRFIDN(a) in preceding 








header card 


11-20 


FIO.O 


THRU 


Annual throughput 


21-30 


FIO.O 


TROPC 


Annual operating cost 



The number of cards of type //2 must correspond to NOPENT 
in the preceding transfer station header card. 



2h 



4.2.3 Plant Subfile 

This subfile gives details of each existing or potential plant 
(incinerator or reclamation plant). The header card gives a numeric label, 
name, and upper and lower limit on throughput (if used) and the status 
of the plant for the particular run of the model. By setting the status 
to (not used) a plant can be effectively excluded from a model run without 
any other changes to the data file. 

Following each plant header card are one or more cards each 
giving the capital cost which would be incurred if the plant has a particular 
size. After this are one or more cards giving the annual operating cost 
which would be incurred if the plant has a particular throughput. The 
number of these cards is given by the header card. Finally a card gives 
the percentage of waste lost in processing and the percentage of waste 
recoverable as resource 1, 2, 3 etc. Data is read in for NUMPLT plants 
as given by card //^ of the general parameter subfile. 



Card FORTRAN 

Type Columns Format Name 



#0 (plant header 


card) 




1-3 


13 


PLTIDN(J) 


if-11 


A8 


PLTNAM{J) 


15 


U 


PLSTAT(3) 



21-30 FIO.O PLTLLT(3) 



31-'tO FIO.O PLTULT(I) 



if^ 



50 



11 



a 



IWAY 



NCPENT 



Description 



Numeric label for plant 

Name of plant 
Status in this run 

- not used 

1 - used 

2 - model decides 
Lower limit on annual 
throughput {if used) 
Upper limit on annual 
throughput {if used) 
Way of entering capital 
costs 

- amortization 

1 - lump payment 
number of different 
size plants for which 
capital data entered 
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Card FORTRAN 

Type Columns Format Name 



Description 



55 



[1 



//lA(if IWAY = 0) 

1-3 13 



NOPENT 



IDNUM 



11-20 FIO.O THRU 

27-30 It ENDPAY 

3l-ii0 FIO.O AMTPAY 



Number of cost figures entered 
for different operating throughput 

Numeric label for plant -must 

match PLTIDNU) in preceding 

header card 

Annual capacity 

Last year of amortization 

payments 

Annual amortization payments 



//IB (if IWAY = i) 



Noteif 



1-3 


13 


Tdnum 


Numeric label for plant -must 
match PLTIDN(3) in preceding 
header card 


10 


11 


NLUMP 


Number lump payments (1, 
2 or 3) 


11-20 


FIO.O 


THRU 


Annual capacity 


27-30 


lit 


lYR(l) 


Year of first lump payment 


3\-i*0 


FIO.O 


LMPPAY(l) 


Amount of first lump payment 


f7-50 


W 


IYR{2) 


Year of second 

lump payment 

(if NLUMP = 2 or 3) 


51-60 


FIO.O 


LMPPAY(2) 


Amount of second payment 


67-70 


lit 


IYR(3) 


Year of third Lump 
lump payment 
(if NLUMP = 3) 


71-80 


FIO.O 


LMPPAY(3) 


Amount of third payment 



The number of cards type //I A or IB must correspond to NCPENT 
in the preceding plant header card. 

1-3 13 IDNUM Numeric label for plant -must 

match PLTIDN(3) in preceding 
header card 
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Card FORTRAN 

Type Columns Format Name Description 

11-20 FIO.O THRU Annual throughput 

21-30 FIO.O TROPC Annual operating cost 

Note: The number of cards of type U2 must correspond to NOPE.NT in 
the preceding plant header card. 

//3 1-3 If IDNUM Numeric label for plant - 

must match PLTIDND) in 
preceding header card 
PLTLOS(J) % of waste lost in processing 
PLTRRN(a,l)% of waste entering plant 3 

recoverable as resource 1 
PLTRRNa,2) 2 

PLTRRN(7,3) % 

PLTRRNa,i>) 4 

PLTRRNa,5) f 

PLTRRN(J,6) 4 

PLTRRN(J,7) ? 

PLTRRN(3,8) t 

PLTRRNa,9) t 

Note: Any of the fields in card //3 may be blank, or zero. 

4.2.6 Landfill Subfile 

This subfile gives details of each existing or potential landfill. 
The header card gives a numeric label, name, an upper and lower limit on 
throughput (if used), the status of the landfill for this particular run and a 
limit on site capacity. By setting the status to (not used), a landfill can 
be effectively excluded from a model run without any other changes to the 
data file. 

Following each landfill header card are one or more cards each 
giving the capital cost which would be incurred if the landfill has a 
particular size. After this are one or more cards giving the annual 
operating cost which would be incurred if the landfill has a particular 
throughput. The number of these cards is given by the header card. Data 
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11-15 


F5.2 


16-20 


F5.2 


21-25 


F5.2 


26-30 


F5.2 


31-35 


F5.2 


36-'tO 


F5.2 


41-'f5 


F5.2 


^6-50 


F5.2 


51-55 


F5.2 


56-60 


F5.2 



is read in for NUMLFL landfills as given by card //'* of the general 
parameter subfile. 

Card FORTRAN 

Type Columns Format Name Description 



//O (landfill header card) 
1-3 13 

it-ll AS 

15 11 



21-30 FIO.O LFLLLTU) 



31-^0 FIO.O LFLULT(J) 



it5 



50 



55 



II 



n 



II 



56-65 FIO.O 

//I A (if IWAY = 0) 

L-3 13 



11-20 FIO.O 

27-30 I** 

31-1+0 FIO.O 
#lB(if IWAY - 1) 

1-3 13 



LFLIDN(3) Numeric label for landfill 

LFLNAM(3) Name of landfill 

LFSTAT(a) Status in this run 

- not used 

1 - used 

2 - model decides 
Lower limit on annual throughput 
(if used) 

Upper limit on annual throughput 
(if used) 

IWAY Way of entering capital costs 

- amortization 

1 - lump payments 
NCPENT Number of different size 

landfills for which capital 

data entered 
NOPENT Number of cost figures entered 

for different operating throughput 
LFMOST(3) Greatest tonnage allowed 

over total period 

IDNUM Numeric label for landfill- 

must match LFLIDN(J) in 
preceding header card 

THRU Annual capacity 

ENDPAY Last year of amortization 

payments 

AMTPAY Annual amortization payments 

IDNUM Numeric label for landfill- 

must match LFLIDN(J) in 
preceding header card 
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Card 






FORTRAN 




Type 


Columns 


Format 


Name 


Description 




m 


ill 


NLUMP 


Number lump payments (1, 
2 or 3) 




11-20 


FIO.O 


THRU 


Annual capacity 




27-30 


lit 


lYR(l) 


Year of first lump payment 




31-W 


FIO.O 


LMPPAY(l) 


Amount of first lump payment 




k7'5Q 


W 


IYR{2) 


Year of second 
lump payment 
(if NLUMP^ 2 or 3) 




51-60 


FIO.O 


LMPPAY(2) 


Amount of second payment 




67-70 


Itt 


IYR{3) 


Year of third lump payment 
(if NLUMP = 3) 




71-80 


FIO.O 


LMPPAY(3) 


Amount of third payment 



Note: 



if 2 



The number of cards type //I A or #1B must correspond to NCPENT 
in the preceding landfill header card. 



1-3 


M 


IDNUM 


Numeric label for landfill 
must match LFLIDN(J) in 
preceding header card 


11-20 


FIO.O 


THRU 


Annual throughput 


21-30 


FIO.O 


TROPC 


Annual operating cost 



Note: The number of cards of type //2 must correspond to NOPENT in 
the preceding landfill header card. 

4.2.7 Market Si^f lie 

This subfile gives the name of each resource and details of each 
market location. The counts of these are given by NRESRC and 
NUMMKT(l), NUMMKT(2) etc. in card ifH and 5 of the general parameter 
subfile. 
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Card FORTRAN 

Type Columns Format Name Description 



//O (Resourcie header card) 
1-8 AS 



R5CNAMU) Name of resource 1 



//I (One card for each location purchasing resource in preceding header 
card) 

1 II JCODE Resource number 

2-3 12 KCODE Numeric label for market 

location 
4-n AS MKTNAM{J,K) Name for market location 

21-30 F10.3 PRICE Price payable per tonne 

F.O.B. market location 
31-i^0 FIO.O DEMAND Annual demand for 

resource at this location 

4.2.8 Transportation Link Sii>fiJe (One card for each transportation link) 

Every link which is available for transportation of material must 
be included in this subfile (Fig. 5). The number of links is not given in any 
previous card, but instead all links of one kind e.g. source to transfer 
station are grouped together and ended with a delimeter card (a card with 
'9' punched in column 1). If there are no links of a particular kind, the 
empty section ends with a delimeter. 



Card FORTRAN 

Type Columns Format Name Description 



U 



ICODE 



Code for type of link 

1 - Source to transfer 

2 - Source to plant 

3 - Source to landfill 
'f - Transfer to plant 

5 ~ Transfer to landfill 
5 - Plant to landfill 
7 - Plant to market 
location 



10 



'(.: «' 



^ :«^ 



*' ♦ 



FtGURE 5 - ORGANISATION OF TRANSPORTATION LINK SUBFILE 



w 



£ 



L 



L 



L 



£ 



£ 



£ 



£ 



r 



£ 



9-CARO 



_r 



PLANT TO MARKET 



9-CARD 



U PLANT TO LANDFILL 



9-CARO 



TRANSFER TO LANDFILL 



•• 9-CARD 



v 



A TRANSFER TO PLANT 



-• 9-CARO 



AT 



SOURCE TO LANDFILL 



•• 9-CARD 



_y 



i 



SOURCE TO PLANT 



9-CARD 



SOURCE TO TRANSFER 



Card 






FORTRAN 




Type 


Columns 


Format 


Name 


Description 

9 - change in type 
delimits above 
groups and end 
of file 




3-5 


13 


IDORIG 


Numeric label for origin 




8-10 


13 


IDDEST 


Numeric label for destination 




15 


U 


IDVEIC 


Number of vehicle used 




16-20 


F5.0 


TIME 


Round trip time (minutes) 



*.3 Error Messages From The Edit And Setup Program 

The Edit and Setup Program performs some checking of the input 
data; for example, whether status of facilities have meaningful values and 
numeric labels are consistent between different parts of the input data. If 
such an error is detected, a message and error number is printed. The 
conditions causing each error number are listed below. 

The most common mistake is an inconsistency between a count 
given in one card and the data to which the count refers. In many 
circumstances errors in the data will cause the Edit and Setup Program to 
stop (fatal FORTRAN error). It is usually easy to identify the card causing 
this by reading the printout from the Edit and Setup Program which lists 
information from each card as it is read in. The offending card is then the 
one following the last card from which information was printed. 

The Edit and Setup Program makes very few checks for reason- 
ableness of data (this varies so much from one study to another). The user 
should carefully check the printout of data read in, and intermediate 
calculated values, prior to running the entire model. 

The following is a complete list of the error codes and their 
reasons in order of subroutine. 
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SUBROUTINE 



ERROR 
CODE 



REASON FOR ERROR 



SOURCE 



TRANFR 



PLANTS 



LANDFL 



201 Variable IGENTP for type of generation data is less 

than 1 or greater than 5 
212 Variable IDNUMB for source number does not match 

SRCIDN(J) in preceding source header card 
223 First year entered in interpolation data does not 

match RUNBEG 
22*^ Last year entered in interpolation data does not 

match RUNEND 

301 Variable TR5TAT{J) for status of transfer station is 
less than or greater than 2 

302 Variable TRFLLT{J) for lower limit on annual 
throughput is greater than TRFULT(3) for upper 
limit 

311 Variable IDNUM does not match TRFIDN(3) in 

preceding transfer station header card 
i^Ol Variable PL5TAT(3) for status of plant is less than 

or greater than 2 
(f02 Variable PLTLLT(3) for upper limit on annual 

throughput is greater than PLTULT(3) for upper 

limit 
if 11 Variable IDNUM does not match PLTIDN(J) on 

preceding plant header card 

501 Variable LFSTATD) for status of landfill is less than 
or greater than 2 

502 Variable LFLLLT(J) for lower limit on annual 
throughput is greater than LFLULT(J) for annual 
upper limit 



MARKET 



503 Variable LFLLLT(3) for lower limit on annual 

throughput is greater than LFMOST/RUNYRS 
(greatest amount over period/length of period) 

511 Variable IDNUM does not match LFLIDN(3) on 

preceding landfill header card 

601 First digit of MKTIDN does not match number for 

this resource 
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SUBROUTINE 



ERROR 
CODE 



REASON FOR ERROR 



LINKEM 



701 ICODE not 1 as required for source to transfer 
station links - card ignored 

702 ICODE not 2 as required for source to plant links - 
card ignored 

703 ICODE not 3 as required for source to landfill links - 
card ignored 

70't ICODE not 't as required for transfer station to 

plant links - card ignored 

705 ICODE not 5 as required for transfer station to 
landfill links - card ignored 

706 ICODE not 6 as required for plant to landfill links - 
card ignored 

707 ICODE not 7 as required for plant to market links - 
card ignored 

711 IDORIG less than 100 - card ignored 

712 IDDEST less than 100 - card ignored 

721 Vehicle code less than 1 or greater than 8 - card 

ignored 

731 IDORIG does not match any SRCIDN in source data 

732 IDORIG or IDDEST does not match any TRFIDN in 
transfer station data 

733 IDORIG or IDDEST does not match any PLTIDN in 
plant data 

73if IDDEST does not match any LFLIDN in landfill data 

735 IDDEST does not match any MKTIDN in market data 



*.* Input For The Report Writer Program 

The user can obtain reports for a single facility, for all 
facilities of a given type or for ail facilities. This is specified on the first card. 

The second card provides the means to obtain subtotals of costs 
for subgroups specified. In this way, if the study area consists of several 
municipalities, each municipality's portion of the total costs can be obtained. If 
subtotals are not required the card is left blank. 
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Card FORTRAN 

Type Columns Format Name Description 



//I 



1-8 



9-16 



in 



1-5 



6-10 



m 



A8 



17-20 M 



15 



15 



11-15 15 



16-20 



15 



GENNAM 

FACNAM 
FACTYP 
NOSUBT 
IDSUBT(l) 

IDSUBT(2) 

IDSUBT(3) 



Name of generation 

area to be reported 

or ALL. 

Name of facility to 

be reported or ALL 

Type of facility to be 

reported or ALL 

Number of subtotals 

required 

Numeric label of source 

to which first subtotal 

runs 

Numeric label of source 

to which second subtotal 

runs 



71-75 



15 



IDSUBTd^t) 



Numeric label of source 
to which fourteenth 
subtotal runs 



76-80 15 



IDSUBT(15) Numeric label of source 

to which fifteenth subtotal 
runs. 
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CHAPTER FIVE 

STEPS IN RUNNING THE MODEL 

This chapter outlines the steps which should be taken in the early 
stages of a study to check that data are correct and the programs are set 
up properly. The data may be correct in the sense that all transcription and 
keypunch errors have been removed, but may still need amending if the 
user omitted potential facilities or desirable transportation links which will 
help in developing a low cost SWMS. This is likely to be recognized only 
after the model has been run a few times. 

The following is suggested as a step-by-step procedure to achieve 
maximum assurance of correctness at low cost. The steps are: 

1. Run the ESP alone until the data appear correct. 

2. Make preliminary runs of the MIP to ascertain a solution is 
possible with the data used and the 3CL and MIP control 
program are correct. 

3. Run the whole model (ESP, MIP and RWP) to ensure it is 
operating correctly and the data allows reasonable solutions. 

5.1 Checking the Data with the Edit and Setup Program 

As a first step, run the ESP alone and check the printed output to see 
the data are correct. Card 3 of the general parameter subfile should 
include the following settings: 

INREP = 2 

OUTREP = 2 

TWRITE = 

D WRITE = 

LANDCD = 

The first two settings give maximum printed output. They can be set 
back to 1 or in later runs when the user is satisfied the data are correct. 
TWRITE and DWRITE are set to until the data are correct. In any case, 
if ESP detects any errors in the input data, the program sets these two 
switches to 0. LANDCD should be set to for all runs. 
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ESP is run until all errors detected have been corrected. The user 
should then check the output very carefully. Inspect the printout of the 
raw data to check that the figures are as intended. The intermediate 
values calculated from the raw data should be reasonable. 

5.2 First Run of the MIP 

Once the user is satisfied the data are as intended, he can rerun ESP 
with TWRITE = 1 and DWRITE = 1. Check for the message 'WRITE TO T 
FILE COMPLETED' to ensure the file for input to MIP is created properly. 
If the message is not written by ESP and TWRITE - I, then there is 
probably a JCL error. 

For the first run of MIP, set TRSTAT, PLSTAT and LF5TAT to 1 
(used) for every facility in the data base. With these settings the MIP 
should run at low cost and quickly find an optimal solution. If it fails to 
find an optimal solution when all the facilities are fixed as available, then 
the data needs revising. This run also provides a quick check that the JCL 
and MIP control program are correct. 

5.3 First Run of the RWP 

When the first run of the MIP has been successful, the MIP solution 
file will be created on disk. The RWP reads this file, DFILE and two input 
cards. If these files are all made available to the RWP then it should run 
successfully. Any problems are likely to be caused by incorrect JCL or 
empty files. 

5 A "Production* Runs of the Model 

Once the user is satisfied the model is set up correctly and the data 
file is free of transcription and keypunch errors, he can start the analysis 
runs. For these the setting of flags in card 3 of the general parameter 
subfile should be INREP - 1, OUTREP - 1, TWRITE = 1 and DWRITE = 1. 
Although each of the three programs ESP, MIP and RWP can be run at 
different times by saving intermediate files, care should be taken for a 
particular set of data values that the printed output from each of the three 
programs be kept together. 
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The sequence in which different scenarios are run is unlikely to be 
known completely in advance, since it may depend on results found in early 
runs. A valuable guideline in early runs is for most of the facilities to be 
pegged as 'used* or 'not used'. This will keep down computer costs while the 
user is still confirming data and becoming familiar with the form and cost 
of feasible solutions. 
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PART III 



PROGRAMMER'S GUIDE 



CHAPTER SIX 
RUNNING THE MODEL ON A CDC COMPUTER 

This chapter gives infbrrhation on how to set up and run the version 
of the nnodel written for a CDC computer using the package APEX-III. 

6.1 Setting Device Numbers, Date and Dimension Statements in the ESP 

The ESP uses one input file and three output files (Fig. 6), The files, 
allocations and current device numbers are: 

ESP input data on unit R. Currently set R=5. 

ESP printout on unit W. Currently set W=6. 

TFILE to enter APEX-III on unit T. Currently set T=i. 

DFILE passed to RWP on unit D. Currently set D=9. 

The PROGRAM statement is consistent with the above settings. If 
the user wishes to change file allocations, this may be done by altering the 
assignment of values to R,W,T,D in the main program, and making 
appropriate changes in the PROGRAM statement. 

The internal date is called in the main routine and written out in 
subroutine HEADER with format A 10. The call and format may be 
different in some installations. 

Some of the implied dimensioning in labelled COMMON may need 
altering for some data bases: 

Each array in SRCDAT needs one element per source. 

Each array in TRFDAT needs one element per transfer station. 

Each array in PLTDAT needs one element per plant. 

Each array in LFLDAT needs one element per landfill. 

Each array in LNKDAT needs one element per transportation link. 
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FIGURE 6 - FILE NAMES USED IN APEX-IE VERSION 



o 



f^ 



TAPE 5 



EDIT AND SETUP 

ONOGKAM 
(ESP) 



TAPE • 



TAPE 



TAPE 9 



IIP CONTROL 
PROGHAH 



MIXED INTE6CN 
PROGRAM 
APEX-m 



HIP 

SOLUTION 

REPOftT 



TAPE 12 



TAPE S 



REPORT WRITER 

PROGRAM 

IRWPI 



TAPE 6 



6.2 Setting Device Numbers, Lines Per Page, Date and Dimension Statements 
in the RWP 

The RWP uses three input files and one output file (Fig. 6). The 
files,allocations, and current device numbers are: 
RWP input cards currently set on TAPE 5 

MIP solution file currently set on TAPE 12 

DFILE passed from RWP currently set on TAPE 8 

RWP printout currently set on TAPE 6 

The PROGRAM statement is consistent with these settings. If the 
user wishes to change file allocations, this may be done by altering the 
READ statements in the main program and making appropriate changes in 
the PROGRAM statement. 

The variable LINPAG should be set in the main program to the 
number of lines per page for the RWP Printout, 

The internal date is called in the main program and written out in 
subroutine HEADER with format A 10. The call and format may be 
different in some installations. 

Some of the implied dimensioning in labelled COMMON may need 
altering for some data bases: 

Each array in SRCDAT needs one element per source. 

Each array in FACDAT should be dimensioned identically and allow 
one element per facility of each type 

Each array in LNKDAT needs one element per transportation link. 

In COMMON area OUT, array ARCW5T should have one element per 
transportation link and the arrays W5T and DELTA should have the 
first dimension the same as arrays in FACDAT. 

While not essential, it is simplest and safest to make dimensioning identical 
between similar arrays in the ESP and the RWP. 
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6.3 JCL for Running on CDC with APEX-UI 

The JCL given here is for running each of the three programs as 
separate jobs. All files are read and written sequentially. Obviously, if the 
programs are run consecutively as part of the same job, some of the 
CATALOG and ATTACH statements should be omitted. Figure 7 gives the 
JCL for running the three programs under SCOPE (2) v/hile Figure 8 gives 
the JCL for runnning under NOS (3). 

6.* The Control Program for APEX-III 

Figure 9 lists the APEX-III control program to use when running the 
model. It is identical whichever operating system is used. In the listing 
RPOPTCR is set to a value of 0.01. This means the Branch-and-Bound 
search will step when a solution is found proven to be within 1% of the 
global optimum. Experience shows that the value of 0.03 is a reasonable 
setting for finding a good or best solution at reasonable computer cost. 
See the APEX-III manual ( I ) for further information. 
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FIGURE 8 - JCL FOR RUNNING ON CDC UNDER NOS 



00100 GET, TAPE5 = P7e. 

001 10 DEFINE, TAPE9 = T9RI. 

00120 DEFINE, TAPEI = TIRI. 

00130 SBULIM, JS = 250. 

00140 GET, JPSET. 

00150 FTN, l = JPSET, L = 0, GO. 

00160 REWIND, TAPE6. 

00170 DAYFILE, JPDAY. 

EDIT AND SETUP PROGRAM 






00 100 /JOB 

001 10 RUNAPEX, T300, P4. 

00120 /USER 

00140 DEFINE, 0UTPUT = 0UTAPEX. 

00150 ATTACH, APEX/UN = LIBRARY. 

00160 ATTACH, TAPEI = TIR]A. 

00170 DEFINE, TAPEI2 = TI2RI. 

00180 RFL, 200000. 

00185 REDUCEt-). 

00190 APEX (S, MIN, OBJ = NETCOST, 

00200 DAYFILE. 

00210 EXIT. 

00220 DAYFILE. 

00230 /EOF 



MIP, FS) 



00100 /JOB 

001 10 REPORT, TlOO, P4. 

00120 /USER 

00130 DEFINE, OUTPUT = JPOUTR. 

00140 GET, JPRB. 

00150 ATTACH, TAPE8 = T9RIA. 

00160 GET, TAPE5 = RPJANI5. 

00170 ATTACH, TAPE12 = TI2RI. 

00190 JPRB. 

00200 DAYFILE. 

00210 EXIT. 

00220 DAYFILE. 

00230 /EOF 



CONTROL PROGRAM FOR APEX-IT 



REPORT WRITER PROGRAM 



FIGURE 7 - JCL FOR RUNNING ON CDC UNDER SCOPE 






00 100 /JOB 

001 10 TEST, TlOO, P4. 

00120 USER, MOESSCC, PASWORD. 

00130 REQUEST, TAPEI, ^ PF. 

00140 REQUEST, TAPE9, ^PF. 

00150 FTN, L = 0. 

00155 MAP, OFF. 

00160 LGO, TAPEI, INPUT, OUTPUT. 

00170 REWIND, TAPEI. 

00180 CATALOG, TAPEI, APEXINPUTI, NA = I 

00190 CATALOG, TAPE9, REPINPUTI, NA = I. 

00200 /EOR 

002 10 /NOSEQ 
00220 /READ, OUTREP 
00230 /EOR 

00240 /READ, S3CIP4C 
00250 /EOR 
00260 /EOF 



00100 
00 110 
00120 
00142 
00144 
00160 
00170 
00180 
00190 
00200 
00210 
002 15 
00220 
00230 
00240 
00250 



/JOB 

REPORT, TlOO, P4. 

USER, MOESSCC, PASWORD. 

FTN, L = 0. 

MAP, OFF. 

ATTACH, TAPES, REPINPUTI. 

ATTACH, TAPEt2, APEXOUTPUTI. 

LGO, TAPEI2, INPUT, TAPE8. 

/EOR 

/NOSEQ 

/READ, 

/SEQ 

/EOR 

ALL 

9 
/EOR 



JPREPI 



ALL 
112 126 



(53 159 164 177 253 261 



267 



REPORT WRITER PROGRAM 



EDIT AND SETUP PROGRAM 



FIGURE 9 - CCNTROL PROGRAM FOR APEX-HE 






00100 /JOB 

001 10 APEX,TI00,P4. 

00120 USER.MOESSCC.PASWORD. 

00)30 HEADING. B R.KIRBY 

00140 HEADING. M MACLAREN 

00150 REQUEST,TAPE12,XPF. 

00160 APPLIC.APEX. 

00170 ATTACHJAPEI.APEXINPUTI. 

00180 RFL, 100000. 

00190 APEX {S,MIN,N = ONTWAST,OBJ = NETCOST,PS,MIP) 

00200 CATALOG,! APEI2,APEX0UTPUT,NA=I. 

DEFAULT OPTIMIZATION VALUE OF 10% 



00100 


/JOB 








001 10 


APEX,TI0O0,P4. 






00120 


USER.MOESSCC.PASWORD 


. 




00125 


SBULIM (2500) 






00130 


HEADING. B 


R.KIRBY 






00140 


HEADING. M 


MACLAREN 






00150 


REQUEST,TAPEI2,^PF. 






00160 


APPLIC.APEX. 






00170 


ATTACH.TAPEI.APEXiNPUTL 




00180 


RFL,I20000 








00190 


APEX. 








00200 


CATAL0G,TAPEI2,APEX0UTPUTI,NA = 1. 




00210 


/EOR 








00220 




INPUT 


ONTWAST 




00230 




SET 


KNDIR 


MIN 


00240 




SET 


KNOBJ 


NETCOST 


00250 




SET 


KNRHS 


$ 


00252 




SET 


KNBND 


% 


00254 




SET 


KNRNG 


% 


00260 




SET 


RPOPTCR 


0.01 


00270 




SELECT 






00272 




REDUCE 






00280 




CRASH 






00290 




PRIMAL 






00300 




MIXINT 






00302 




RECREATE 






00304 




PRIMAL 






00310 




OUTPUT 


PART/SPEC 




00320 




EXIT 






00330 


/EOR 









OPTIMIZATION VALUE OF 1% 



CHAPTER SEVEN 

RUNNING THE MODEL ON AN IBM COMPUTER 

This chapter gives information on how to set up and run the version 
of the model written for an IBM/370 computer using the package 
MPSX-MIP. 

7.1 Setting Device Numbers, Date and Dimension Statements in the ESP 

The ESP uses one input file and three output files (Fig. 10). The files, 
allocations and current device numbers are: 

ESP input Data on unit R. Currently set R=5, 

ESP printout on unit W. Currently set W=6. 

TFILE to enter MPSX-MIP on unit T. Currently set T:^l. 

DFILE passed to RWP on unit D. Currently set D=9. 

If the user wishes to change file allocations, this may be done by 
altering the assignment of values to R,W,T,D in the main program and 
amending the FT..F001 file names in the 3CL DD statements. 

The internal date is called in the main routine and written out in 
subroutine HEADER. The call and format should be altered to match those 
used at the installation where the model is run. 

The implied dimensioning in labelled COMMON may need altering for 
some data bases; 

Each array in SRCDAT needs one element per source. 

Each array in TRFDAT needs one element per transfer station. 

Each array in PLTDAT needs one element per plant. 

Each array in LFLDAT needs one element per landfill. 

Each array in LNKDAT needs one element per transportation link. 
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7.2 Setting Device Numbers, Lines per Page, Date and Dimension Statements 
in the RWP. 

The RWP uses three input files and one output file (Fig. 10). The 
tiles, allocation, and current device numbers are: 
RWP input card on unit R. Currently set R=5. 

MIP solution file on unit F. Currently set F=12. 

DFILE passed from RWP on unit D. Currently set D=9. 
RWP Printout on unit W. Currently set W=6. 

If the user wishes to change file allocations, this may be done by 
altering the assignment of values to R,W,T,D in the main program and 
amending the FT..F001 file names in the 3CL DD statements. 

The variable LINPAG should be set in the main program to the 
number of lines per page for the RWP Printout* 

The internal date is called in the main program and written out in 
subroutine HEADER. The call and format should be altered to match those 
used at the installation where the model is run. 

The implied dimensioning in labelled COMMON may need altering for 
some data bases: 

Each array in SRCDAT needs one element per source 

Each array in FACDAT should be dimensioned identically and allow 
one element per facility of each type. 

Each array in LNKDAT needs one element per transportation link. 

In COMMON area OUT, array ARCWST should have one element per 
transportation link and the arrays W5T and DELTA should have the 
first dimension the same as arrays in FACDAT. 

While not always essential, it is simplest and safest to make 
dimensioning idential between similar arrays in the ESP and the RWP. 
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FIGURE 10 - FILE NAMES USED IN MPSX-MiP VERSION 



00 



f^ 



FT05F00I 



EDIT 4N0 S€TUP 
PROGRAM 

ltSP> 



FT0eF00l 



FT0IF00I 



FT09r00t 



MIP CONTHOl 
PROGRAM 



MIXED INTEGER 
PROGRAM 
MPSX-MIP 



MiP 

SOLUTION 

REPORT 



FORTFILE 



rrasFadi 



REPORT WRITER 

PROGRAM 

IRWP) 



FT«6F0»I 



7.3 JCL for Running on IBM with MPSX-MIP 

The JCL given here is for running each of the three programs as 
separate jobs. All files are read and written sequentially. Obviously if the 
programs are run consecutively as part of the same job, files may be passed 
rather than kept. Figure 1 1 gives the JCL for running the three programs 
under OS, 

7 A The Control Program for MPSX-MIP 

Figure 12 lists the MPSX-MIP control program to use when running 
the model. The macro call OPTIMIX can include in its argument list a 
limit on CPU time (the third parameter, unit is minutes, indicates no 
time limit). The command SOLUTION 'FORTFILE' writes the best solution 
to the data set FORTFILE from which it can be read by RWP. 
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FIGURE II - JCL FOR RUNNING ON IBM/370 UNDER OS 



//JOBl JOB 
//EXEC FORTHCLG 
//FORT.SYSIN DD * 



Edit and Setup Program 



/* 

//GO.FT05F001 DD * 

Model Data 



/* 

//GO.FT06F001 

//GO.FT08F001 

II 

II 

//GO.FT09F001 

// 
// 

n 



DD SYSOUT^A 

DD DSN=TFILE,DISP^(NEW,KEEP), 

DCB=(RECFM=FB,LRECL=80,BLKSIZE=3520), 

SPACE=(TRK,(10,10),RLSE),UNIT=3330,VOL=SER=WORK30 

DD DSN=DFILE,DISP=(NEW,KEEP), 

DCB=(RECFM=VBS,RECL=20't,BLKSIZE=102a), 

SPACE4TRK,(l,l),RLSE),UNIT=3330,VOL=SER=iyORK30 



//30B2 30B 
//EXEC MPSXMIP 
//MIP.SYSIN DD * 



//G0.5YSIN DD 

// 

// 

//GO.FORTFILE 

II 
II 

n 



Control Program 



DSN:.TFILE,DISP=OLD, 

DCB=(RECFM=FB,LRECL=80,BLKSIZE=3520), 

UNIT^3330,VOL=SER=WORK30 

DD DSN=FORTF!LE,DISP=(NEW,KEEP), 

DCB=(RECFM=VBS,LRECL=20't,BLKSIZE = 102'f), 

SPACE=(CYL,(1, 1 )),UNIT=3330,VOL=SER-WORK30 



//aOB3 JOB 
//EXEC FORTHCLG 
//FORT.SYSIN DD * 



Report Writer Program 



/* 

//GO.FT05F001 DD * 



//GO.FT06F001 

//GO.FT09F001 

II 

II 
//GO.FT12F001 

II 
U 



Subtotal Request Card 

DDSY50UT=A,DCB=(RECFM=FA,BLKSIZE=133,LRECL=133) 

DD DSN=DFILE,DlSP=OLD 

DCB=(RECFM=VBS,LRECL=20it,BLKSIZE=102it), 

UNIT=3330,VOL=SER=WORK30 

DD DSN=FORTFILE,DISP=^OLD, 

DCB={RECFM=VBS,LRECL=20't,BLKSIZE=102it), 

UNIT=3330,VOL=SER = WORK30 
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FIGURE 12 - CONTROL PROGRAM FOR MPSX-MIP 



//MIP.SY5IN DD * 

PROGRAM 



P 



INITIALZ 

MOVE(XDATA,'ONTWAST') 

MOVE(XPBNAME,'PROBFL') 

CONVERT 

5ETUP('BOUND','FACILITY') 

MOVE(XOB3,'NETCOST') 

MOVE(XRHS,'ORIGRHS') 

OPTIMIZE 

SOLUTION 

OPTIMIX{'COST',0.,0,0,0) 

SOLUTION('FILE','FORTFILE') 

EXIT 

PEND 
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CHAPTER EIGHT 

DOCUMENTATION OF THE EDIT AND SETUP PROGRAM 

This chapter documents, routine by routine, the ESP. The documen- 
tation applies equally to the versions for CDC and IBM. 

The differences between the two versions are: 

a) the PROGRAM statement is required only by the CDC version. 

b) the DATE call may be different. 

c) the variables typed DOUBLE PRECISION in the IBM version are 
typed REAL in the CDC version. 

d) there are minor differences in a few of the WRITE statements 
preparing TFILE, according to whether it is written for APEX- 
III of MPSX-MIP. 

The differences of type d) are explained in the descriptions of 
subroutine TSETUP. Figure 13 lists all the routines in their order of 
execution. Figure l^ shows which COMMON blocks are accessed by which 

routines. 

8.1 Main Routine 

In the main routine device numbers are set and the various sub- 
routines are called. 

8.1.1 Glossary of Important Variables 

The following variables are all read in by routine START* 
NUMTRF - number of possible transfer stations 

NUMPLT - number of possible plants 

NRESRC - number of different materials recoverable 

TWRITE - flag to write TFILE 

DWRITE - flag to write DFILE 
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FIGURE 13 - SEQUENCE FOR EXECUTION OF 
SUBROUTINES IN ESP 



ESP 



START 



SOURCE 



TRANFR 



PLANTS 



LANDFL 



MARKET 



LINKEM 



TSETUP 



DSETUP 



- 53 



FIGURE 14 - COMMON BLOCKS NEEDED IN ESP 
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D 
D 
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8.2 Subroutine START 

This routine initializes some variables then reads in the general 
parameter subfile. If a printout is requested, all data are listed with 
appropriate explanatiOTi* 

8.2.1 Glossary of Important Variables 

The meaning of most of the variables is given on page 16 in the 
description of the general parameter subfile. 

TOTERR - the total number of errors detected in the data by the 

ESP. 

ERFLAG - if this flag has value 1, an error has been detected by 

ESP, Special action mav be taken before the flag is reset 
to 

RUNYRS - number of years in the study period. 

8.2.2 Processing 

Variables are read from the general parameter subfile into COMMON 
blocks GENDAT and VECDAT. If INREP is 1 or 2, the variables are listed 
in the Printout. 

8.3 Subroutine SOURCE 

This routine reads in ID number, name and details of waste 
generation for each source. Total amount of waste generated at each 
source is calculated for entry to the MIP, and may be printed. The routine 
is made up of a major DO loop iterated once for each source. 

8.3.1 Glossary of Important Variables 

NUMSRC - number of sources in the model (read in by routine 

START) 

SRCIDN - ID number for source {3 digits) 

SRCNAM - name of source (S characters) 

IGENTP - number 1 to 5 indicating form in which generation data is 

entered for this source 
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IDNUMB - ID number on card with generation data - should match 

immediately preceding SRCIDN 

SRC TOT - total amount of waste generated at this SQurce over the 

period 

ALWAST - total amount of waste generated at all sources over the 

period 
RUNYRS - number of years in the period 

8.3.2 Calculations 

If IGENTP = 2 

The figures entered are AMONTl (total generation in the first year) 

and GROWTH {% growth may be zero or negative) 

NYRS , 

SRCTOT = AMONT 1 + AMONTl S (1 + GROWTH/100) 

J = l 

NYRS is 1 less than the length of the period 
If IGENTP = 3 

A total generation figure is entered for 2, 3, or 4 specified years of 
the period. The period total is calculated by interpolation. The first year 
entered must coincide with the first year of the period, and the last year 
entered must coincide with the last year of the period. 

If data are entered for 2 years: 



AMOUNT (1) 




AMOUNT (2) 



RUNBEG 



RUNEND 



SRCTOT = (AMOUNT (1) 4 AMOUNT(2) )/2 * RUNYRS 



-.54. 



If data are entered for 3 years: 



AMOUNT (2) 



AMOUNT (3) 



AMOUNT (1) 



IYR{1) 



IYR(2) 



IYR(3) 



SRCTOT = (AMOUNT(l) + AMOUNT(2))/2 ♦ (IYR(2) -IYR(l) + 1) 

+(AMOUNT{3) + AMOUNT(2))/2 * (IYR(3) -IYR(2) + 1) 
- AMOUNT(2) 

If data are entered for <> years: 



AMOUNT(2) 



AMOUNT(l) 




AMOUNTCi) 



lYR(l) IYR(2) 



IYR(3) 



lYR(f) 



SRCTOT = (AMOUNT(l) + AMOUNT(2))/2 * (IYR(2) -IYR(l) + 1) 

+ (AMOUNT(2) + AMOUNT(3))/2 * {IYR(3) -IYR(2) +1) 
^ (AMOUNTO) + AMOUNTS* ))/2 * aYR(ff) - lYR (3) +1) 
- AMOUNT (2) -AMOUNT (3) 
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If IGENTP = tf- 

The figures entered are TONYRi (tonnes per capita generation in the 
first year), TONGRO (% growth in generation per capita - this may be zero 
or negative), POPYRl (population in the first year), POPGRO (% growth in 
population - may be zero or negative). 



In the first year 



YRTOT= TONYRI * POPYRl 

GROW = (1 + TONGRO/100) * (1 + POPGRO/100) 

NYRS 



Then SRCTOT = YRTOT + YRTOT V (GROW)'' 

3^1 



NYRS is 1 less than the length of the period 

If IGENTP = 5 

This parallels IGENTP 3 but instead of entering total generation in a 
year the figures entered are TONYR(K) (tonnes per capita generation in 
year K) and POPYR (K) (population in year K). Amount in year K is then: 

AMOUNT(K) = TONYR(K) * POPYR(K) 

8.* Slijroutine TRANFR 

This routine reads in ID number, name, capacity limits attd capital 
and operating cost data for each transfer station. The cost figures to enter 
the MIP are developed by linear regression on the raw data entered. The 
routine is made up of a major DO loop iterated once for each transfer 

statiosn 

S.4.1 Glossary of Important Variables 

NUMTRF - number of possible transfer stations in the model 

(read in by routine START) 
TRFIDN - ID number for transfer station (3 digits) 

TRFNAM - name of transfer station (8 characters) 

TR5TAT - status of transfer station in this run 

- not used 

1 - used 

2 - model decides 
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TRFLLT - lower limit on annual throughput (if used) 

TRFULT - upper limit on annual throughput (if used) 

IWAY - way of entering capital cost 

- amortization 

1 - lump payments 

NCPENT - number of different size stations for which capital data 

entered 
NOPENT - number of cost figures entered for different operating 

throughput ^ 

tA.2 Calculations 

Capital cost figures are entered either as an amortization stream, or 
as lump payments for the facility (according to IWAY). Each set of capital 
cost figures entered corresponds to a particular capacity of that particular 
facility. One card holds the data for each capacity. 

To enter capital costs as an amortization stream for a particular 
capacity (THRU), the last year of payment (ENDPAY) and the annual 
payment (AMTPAY) are entered. The payment stream is discounted to an 
effective lump payment at the beginning of the study period by the 
formula: 

COST = AMTPAY ♦ USPWF (RATE, NYRS) 

The function USPWF calculates a present worth factor and is documented 
on page 57. 

RATE is the discount rate 
NYRS = ENDPAY - RUNBEG + 1 

To provide capital costs as lump payments, the user enters one, two 
or three payment amounts for a particular capacity of facility. The 
payments are discounted to an effective lump payment at the beginning of 
the study period. 

Fixed and variable capital costs are calculated by calling the routine 
REGRES documented on page 66. 
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operating costs are entered for one or more operating throughputs of 
the facility. One card holds the data for each throughput. Fixed and 
variable operating costs are calculated by the routine REG RES. 

Since operating costs will be incurred in each year of the study 
period, they are multiplied by the factor USPWF (RATE, RUNYR5) before 
entering the MIP model. 



8,5 Subroutine PLANTS 

TMS t-mjtine reads in ID number, name, capacity limits, capital and 
©perating cost and processing data for each plant. The cost figures to 
enter the MIP are developed by linear regression on the raw data entered. 
The routine is made up of a major DO loop iterated once for each plant. 

3.5.1 Glossary of Important Variables 



NUMPLT 

PLTIDN 

PLTNAM 

PLSTAT 



PLTLLT 
PLTULT 

IWAY 



NCPENT -. 

NOPENT - 

PLTLOS - 
PLTKEP - 
PLTRRNa,M)- 



number of possible plants in the model 
(read in by routine START) 
ID number for plant (3 digits) 
name of plant (8 characters) 
status of plant in this run 

- not used 

1 - used 

2 - model decides 

lower limit on annua! throughput (if used) 

upper limit on annual throughput (if useaj 

way of entering capital costs 

D - amortization 

1 - lump payments 

number of different size plants for which capital data 

erttered 

number of cost figures entered for different operating 

throughput 

% of waste lost in processing 

fraction of waste kept in processing 

% of waste recoverable as material M at this plant 



.m * 



8.5.2 Calculations 

Capital cost figures are entered either as an amortization stream, or 
as lump payments for the facility (according to IWAY). Each set of capital 
cost figures entered corresponds to a particular capacity of that particular 
facility. One card holds the data for each capacity. 

To provide capital costs as an amortization stream for a particular 
capacity (THRU), the last year of payment (ENDPAY) and the annual 
payment (AMTPAY) are entered. The payment stream is discounted to an 
effective lump payment at the beginning of the study period by the 
formula! 

COST - AMTPAY » USPWF (RATE, NYRS) 

RATE is the discount rate 
NYRS = ENDPAY - RUNBEG + 1 

To provide capital costs as lump payments the user enters one, two, 
or three payment amounts for a particular capacity of facility. The 
payments are discounted to an effective lump payment at the beginning of 
the study period. 

Fixed and variable capital costs are calculated by calling the routine 
REGRE5. 

Operating costs are entered for one or more operating throughputs of 
the facility. One card holds the data for each throughput. Fixed and 
variable operating costs are calculated by the routine REG RES 

Since operating costs will be incurred in each year of the study 
period, they are multiplied by the factor USPWF (RATE, RUNYRS) before 
entering the MIP model. 

The variable PLTLOS is divided by 100 to convert it from a 
percentage to a fraction. Since the formulation of the model actually 
requires the proportion kept, PLTKEP is calculated as follows: 

PLTKEP = -(1- PLTLOS/100) 
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The variables PLTRRN(3,M) for M ^ 1 to 9 are divided by 100 to 
convert them from percentages to fractions, then negated since in the 
formulation they are preceded by a minus sign. 



8.6 Subroutine LANDFL 

This routine reads in ID number, name, capacity limits and capital 
and operating cost data for each landfill. The cost figures to enter the MIP 
are developed by linear regression on the raw data entered. The routine is 
made up of a major DO loop iterated once for each landfill. 

8.6.1 Glossary of Important Variables 



NUMLFL 

LFLIDN 

LFLNAM 

LF5TAT 



LFLLLT 
LFLULT 

IWAY 



NCPENT 



NOPENT 



LFMOST 



number of possible landfills in the model 

tread in by routine START) 

ID number for landfill (3 digits) 

name of landfill (8 characters) 

status of landfill in this run 

- hot used 

1 - used 

2 - model decides 

lower limit on annual throughput (if used) 
upper limit on annual throughput (if used) 
way of entering capital costs 

- amortization 

1 - lump payments 

number of different size landfills for which capital 

data entered 

number of cost figures entered for different 

operating throughput 

greatest total tonnage the landfill can receive over 

the total period. 



8.6.2 Calculations 

Capital cost figures are entered either as an amortization stream, or 
as lump payments for the facility (according to IWAY). Each set of capital 
cost figures entered corresponds to a particular capacity of that particular 
facility. One card holds the data for each capacity. 
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To provide capital costs as an amortization stream for a particular 
capacity (THRU), the last year of payment (ENDPAY) and the annual 
payment (AMTPAY) are entered. The payment stream is discounted to an 
effective lump payment at the beginning of the study period by the 
formula: 

COST = AMTPAY * USPWF (RATE.MYRS) 

RATE is the discount rate 
NYRS = ENDPAY - RUNBEG + 1 

To provide capital costs as lump payments, the user enters one, two, 
or three payment amounts for a particular capacity of facility. The 
payments are discounted to an effective lump payment at the beginning of 
the study period. 

Fixed and variable capital costs are calculated by calling the routine 
REGRES documented later. 

Operating costs are entered for one or more operating throughput of 
the facility. One card holds the data for each throughput. Fixed and 
variable operating costs are calculated by the routine REGRES. 

Since operating costs will be incurred in each year of the study 
period, they are multiplied by the factor USPWF (RATE,RUNYRS) before 
entering the MIP. 

The greatest amount of waste which can be shipped to landfill is 
taken as the lesser of the two values (LFLULT * RUNYR5) and LFMOST. 
This is the value stored in COMMON/LFLDAT/ for writing to TFILE. 

8.7 Subroutine MARKET 

This routine reads in market data, in order of resource, 
8.7.1 Glossary of Important Variables 

NRESRC - number of resources considered in the model 

{read in by routine START) 
NUMMKT(3) - number of market locations for resource 3 

(read in by routine START) 
RSCNAM(J) - name of resource 2 (S characters) 
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MKTIDN(3,K) 

MKTNAM(3,K) 

DEMAND 
PRICE 



ID number for market location K at which resource 

J is sold (3 digits with first equal to J) 

name for market location K at which resource 3 is 

sold (8 characters) 

annual demand at market location K for resource 3 

price per tonne payable at market location K for 

resource 3 



DEMAND{J,K) 
PRICET(a,K) 



total demand over period 

effective price (after discounting) to be used in 

model 



8.8 Subroutine LINKEM 

This routine reads in the transportation subfile, checks that the origin 
and destination code for each arc (link) matches the ID code of a locations 
and stores details of the links in COMMON/LNKDAT/. According to the 
setting of the flag INREP, details of each link might be listed. 



8.8.1 Glossary of lnn[>ortant Variables 



ICODE 
IDORIG 
IDDEST 
IDVEIC 

TIME 
COST 
ARCOST 

NAND5T 
NANDSP 

NANDSL 

NAN DTP 

MANDTL 



type of link 

ID number of link origin 

ID number of link destination 

type of vehicle which will transport along link 

round trip travel time (minutes) 

cost to transport 1 tonne of material along link 

discounted cost to transport 1 tonne of material 

total number of source to transfer links 

total number of links up to and including all source 

to plant links 

total number of links up to and including all source 

to landfill links 

total number of links up to and including all transfer 

to plant links 

total number of links up to and including all transfer 

to landfill links 



Gk 



NANDPL - total number of links up to and including ail plant to 

landfill links 
NANDPM - total number of links up to and including all plant to 

market links 

8.8.2 Procedure 

Each card of the transportation subfile is tested first whether it is an 
end of section card (ICODE =9) and then whether it is in the correct 
section. If INREP = 2 then an attempt is made to match IDORIC and 
IDDEST with the ID of a facility determined by the type of link. 

Details of each link are stored in the arrays ARCOST, ORIGID and 
DE5TID. As the cards are read in they are counted by the variables 
NAND... From these counts the number of entries for each type of link is 
known for later processing, 

8.9 Subroutine TSETUP 

TSETUP is called only if the user has set the switch TWRITE to 1 and 
it has not been set to by the subroutine ERROR. By the time it is called, 
all data for use by the MIP and RWP are stored in arrays. TSETUP writes 
TFILE for entry to the MIP. The format of TFILE is as defined by APEX- 
III or MPSX-MIP. The required format differs only in the method of 
specifying binary variables. 

To properly understand what is done in TSETUP the reader will need 
to refer to the formulation of the model in Appendix 1 and the reference 
manual for APEX-Ill ( I ) or MPSX ( 5 ). Appendix ;+ lists a TFILE written 
for the sample problem reported in Appendix 5 and 6. 

8.9.1 Glossary of Important Variables 

Most of the variables used in TSETUP are passed through COMMON 
from earlier routines. The only important variables local to TSETUP are 
the parts of the row names and variable (column) names arbitrarily made 
up for use in the model. They correspond to the names used in the 
formulation in Appendix I. All the names are initialized by DATA 
statements at the beginning of the subroutine. 
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8.9.2 Procedure 

The very first item on TFILE is the name of the problem (or data- 
set). The 'ROWS' section provides a name for every row in the model and 
types it as an equality, inequality, or non-constraining. 

The COLUMNS section of TFILE names each variable in the problem, 
giving its coefficient in every equation where it appears. Most of the 
variables are material flows in the system, and these variables are written 
first using information from COMMON/LNKDAT/. Next there is a 
variable for each facility throughput. The final part of the COLUMNS 
section introduces the integer variables named DELTAS. The integer 
variables are set off with MARKER cards, if TFILE is being written for 
MP5X-MIP but these are not necessary for APEX-MI. 

The RHS section gives values to the right-hand-side of equations in 
the model. If the right-hand-side is zero, this need not be explicitly 
specified. In this model, the only non-zero right-hand-side values are for 
amount of waste at each source, and market location demands. 

In the BOUNDS section, the integer DELTAS are given an upper 
bound of 0, and a status of FX if the facility must not be used, an upper 
bound of 1 and a status of FX if the facility must be used. If the model is 
deciding the status as part of the analysis, the bound value is 1 and the 
status is UP for MPSX-MIP or BV for APEX-III. The last record of TFILE 
isENDATA. 

8.10 Subroutine DSETUP 

DSETUP is called only if the user has set the switch DWRITE to 1 and 
it has not been turned off by subroutine ERROR. The routine writes to 
DFILE from COMMON all those counts, ID numbers and location names 
required by the RWP. 

8.11 Subroutine REG RES 

This routine determines linear regression coefficients from facility 
capital and operating costs. All variables are passed via the argument list. 
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8.1 1.1 Glossary of Important Variables 

^ - number of observations 

E - vector of observations 

f' - vector of matching y observations 

W - value of y intercept ('fixed' cost) 

V - value of slope of line ('variable' cost) 

RSQ - measure of goodness of fit 

8.11.2 Calculations 

If N ^ 1 

If there is just one observation, no regression is possible. 
Then F = Y (1) 
V = 
RSQ = 

If N greater than 1 

Step I Calculate SX = S Xj 

SXX = X (x.)^ 



SY = 2 Y 

SYY = 2(Y.) 



1 

2 



SXY - 2X. Y. 



and VARNX = SXX - SX * SX/N 

VARNY = SYY - SY * SY/N 

VARNXY ^ SXY-SX ♦ SY/N 

Step 2 Using the model Y = F + VX estimate V and F by 

V - VARNYX/VARNX 

and F ^ SY/N - V * SX/N 

If F equals continue with Step 3 or else go to step ^t. 
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Step 3 Calculate the RSQ "goodness of fit" measure by 

RSQ = V * V * VARNX/VARNY 
and exit the subroutine. 

Step ♦ Since the model in Step 2 gave a negative value to F, this can 

be a problem. Instead the model Y = VX is used. 

Then F = 

Calculate V = SXY/SXX 

RSQ = V*SXY/5YY 

8.12 FUNCTION USPWF 

This function computes the uniform series present worth factor to 
use for calculating the present discounted value of a uniform stream of 
annual payments. 

8.12.1 Glossary of Important Variables 

p. - discount rate fraction 

N - number of years of payments 

8.12.2 Calculations 

On January 1st of year 1, payment of $1 on December 31st of years 
1, 2, 3 ... n has discounted value: 

(1 + R)" - 1 il R not equal to 

R(l+R)" 

If R = (no discounting), then the stream of $1 payments has value $N. 
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CHAPTER NINE 

DOCUMENTATION OF THE REPORT WRITER PROGRAM 

This chapter gives details of the RWP routine by routine (Figure 15). 
There are two Versions of the Program, one for use on CDC with APEX-III, 
the other for use on an IBM/370 using MPSX-MIP. Apart from trivial 
differences between CDC and IBM FORTRAN, the only important 
difference in the two versions is in the routine TFETCH which reads all 
required information on the solution found by the MIP and stores it in 
arrays in COMMON. 

9.1 Main Program 

In the main program, subroutines are called to read first DFILE, then 
TFILE, into core storage. Routines are then called to produce each report 
in turn. 

9.2 Subroutine DFETCH 

This routine reads into COMMON storage all the information written 
on DFILE. Each READ statement in DFETCH matches a WRITE statement 
in DWRITE of ESP. 

9.3 Subroutine TFETCH for MPSX-MIP 

This routine is a modification of the FORTRAN program on p. 235 of 
the MPSX Manual (5). All information required by RWP from the solution 
is read from the output file and stored in arrays. 

9.3.1 Glossary of Important Variables 

ARCWST - an array of material flows along each link 

WST - an array of material flow through each facility 

WM - an array of material shipments to each market location 

DELTA - an array containing the value of the integer variable 

corresponding to each facility 
COST - an array containing total capital, transportation cost etc. 

VALUES - an array containing the optimal values of all mode! 

variables 
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FIGURE 15 - SEQUENCE FOR EXECUTION OF 
SUBROUTINES IN RWP 



RWP 



DFETCH 



TFETCH 



EXSUM 



SUMREP 



DETGEN 



DETFAC 



TPSHIP 



MKTREP 



7Q - 



9.3.2 Procedure 

The identification array of the solution file prepared by MPSX-MIP is 
read and gives the number of rows and columns in the output data. Only 
the values of the rows near the end of the rows section are required, those 
giving total capital cost, total facility operating cost, total transportation 
cost, and total revenue. This information, originally in elements of the 
array VALUES, is stored in the array COST. 

The value of every variable in the columns section is required by 
RWP. After completing reading of the rows section of the solution file, 
elements of the array VALUES are stored in the array ARCWST, one for 
each transportation link. Following this the array VALUES gives material 
flows through facilities. These are stored in the array WST, first for 
transfer stations, then for plants, then for landfills. After this comes total 
material received at each market location stored in the array WM. Finally 
the array VALUES contains the optimal values of the integer variables, one 
for each facility. They are stored in the array DELTA first for transfer 
stations, then for plants, and finally for landfills. 

9.* Subroutine TFETCH for APEX-III 

Details of the FORTRAN-readable solution file created by APEX-III 
are given in Appendix B of the manual (1). All information required by 
RWP from the solution is read sequentially from the output file and stored 
in arrays in COMMON. 

9.*.1 Glossary of Important Variables 

ARCWST - an array of material flows along each link 

WST ~ an array of material flow through each facility 

WM - an array of material shipments to each market location 

DELTA - an array containing the value of the integer variable 

corresponding to each facility 
COST - an array containing total capital, transportation cost etc. 

W - each record of the file output by APEX-III is made up of seven 

words, arbitrarily named W. The second word, W(2) contains 
the numeric values of the row and column variables. 
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9.*.2 Procedure 

The first two records of the APEX-III output file are header records. 
The second of these contains, in words W(6) and W(7) the number of rows 
and columns respectively. Only the values of the rows near the end of the 
rows section are required, those giving total capital cost, total facility 
operating cost, total transportation cost, and total revenue. This 
information originally in the elements W(2), is stored in the array COST. 

The values of every variable in the columns section is required by 
RWP. After completing reading of the rows section of the solution file, 
the columns section is read. For each record, the value in W(2) is stored in 
an array. First come the amounts of flow along links. This information is 
stored in the array ARCWST, one for each transportation link. Following 
this are the material flows through facilities. These are stored in the array 
WST, first for transfer stations, then for plants, then for landfills. After 
this comes total material received at each market location, stored in the 
array WM. Last come the optimal values of the integer variables, one for 
each facility. The values in W(2) are stored in the array DELTA, first for 
transfer stations, then for plants and finally for landfills. 

9.5 Subroutine EXSUM 

This routine prints a summary of the cost figures for the solution: 
formed by MIP, the status of all facilities in the system (used-Yes or No) 
and whether any of the market locations is supplied with recovered 
material. Some of the figures are available immediately in arrays in 
COMMON/OUT/ while others must be divided by certain array elements 

9.5.1 Glossary of Important Variables 

ALWAST - total waste generated {passed from ESP) 

TNAM - name of a transfer station 

TUSE - status of a transfer station 

PNAM - name of a plant 

PUSE - status of a plant 

LNAM - name of a landfill 

LUSE - status of a landfill 

MNAM - name of a market location 
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MUSE - whether or not there are shipments to and market 

location 
CAP( ) - total capital cost for a type of facility 
OP( ) - total operating cost for a type of facility 

TR( ) - total transportation cost for shipments from each type of 

facility 

9.5.2 Procedure 

First the various totals in COST are converted to a cost per year and 
a cost per tonne as well as a percentage of total cost. The amount of 
material recovered is determined by a summation. These various figures 
are printed as the 'System Financial Summary' and 'Material Flow in the 
System'. 

For the section 'Facilities and Markets Used' the status of each 
facility is determined by the values in the array DELTA (broken up into 
DT, DR and DM). A market is 'Used' if shipments to it (WM) are greater 
than zero. 

The other part of the report is a summary of capital, operating, and 
transportation costs by type of facility. Capital and operating costs are 
determined by summation over all facilities. 

FCP ♦ DELTA + VCP * WST for capital 

and FOP ♦ DELTA + VOP * WST for operating 

where the fixed and variable capital costs (FCP and VCP) and fixed and 
variable operating costs (FOP and VOP) are passed from ESP and the values 
of DELTA and WST (throughput) come from the output of the MIP. 
Transport costs are derived by summing the cost ARCOST * ARCWST over 
each link leaving a facility. 

9.6 Subroutine SUMKEP 

This routine produces a report of shipments and cost of shipments 
from each source to the facility at which the collector truck disposes of 
the waste. 
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9.6.1 Glossary of Important Variables 

NANDSL - 



SRCIDN 
ORIGID 
ARCWST 
ARCOST 



total number of links from sources to transfer 

stations, plants and landfills 

ID number for a source 

ID number for the origin of a link 

material shipment along a link 

cost of moving a tonne of material along a link 



9.6.2 Procedure 

For each source, all links from that source are scanned to determine 
the shipment of materials along them. The scanning is carried out by 
attempting to match the ORIGID of a link to the SRCIDN of the source 
being considered. Where there is a match, a check is made whether the 
flow in the link, ARCWST is greater than zero. If so, the flow is multiplied 
by ARCOST to give the total cost of shipping along that link. Averages per 
year and per tonne are calculated. 

9.7 Subroutine DETGEN 

This routine produces a report of total and weighted average cost of 
shipping waste from each source. If required, total and weighted average 
costs can be calculated for groups of sources. 



9.7.1 Glossary of Important Variables 

NOSUBT - 



IDSUBT 

NANDSL 

SRCIDN 
ORIGID 
ARCWST 
ARCOST 



number of groups of sources for which subtotals are 

required 

an array of ID numbers of the last source in each group 

requiring subtotals 

total number of links from sources to transfer stations, 

plants and landfills 

ID number for a source 

ID number for the origin of a link 

material shipment along a link 

cost of moving a tonne of material along a link 



Ih 



9.7.2 Procedure 

For each source, all links from that source are scanned to determine 
the shipment of material along them. The scanning is carried out by 
attempting to match the ORIGID of a link to the SRCIDN of the source 
being considered. Where there is a match, the material flows on the link 
ARCWST, and the total cost of shipping it ARCWST * ARCOST, are 
accumulated. When the scanning for links from one source is completed, 
averages are calculated and results for that source printed out. The 
process is continued until results have been calculated and printed for each 
source. 

If subtotals are requested, a similar procedure is used, accumulating 
not for just one source, but for each source up to and including the one 
with the IDSUBT being considered. 

9.8 SiAroutine DETFAC 

This routine reports for each facility (transfer station, plant, landfill) 
the throughput of the facility (waste shipped to it) the capital and 
operating cost, and the total cost of transporting material from it. 



9.8.1 Glossary of Important Variables 

NUM 



NAM 

IDN 

FCP 

VCP 

FOP 

VOP 

WST 

ARCWST 

DELTA 

ARCOST 

ORIGID 



array containing number of transfer stations, plants, 

landfills, market locations 

array of facility names 

array of facility ID numbers 

array of facility fixed capital costs 

array of facility variable capital costs 

array of facility fixed operating costs 

array of facility variable operating costs 

array of facility throughputs 

material shipment along a link 

integer variable for the status of a facility 

cost of moving a tonne of material along a link 

the ID number for the origin of a link 
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9.8.2 Procedure 

The whole routine is a DO loop iterated once for each facility. For 
an intermediate facility (transfer station or plant) the cost of transpor- 
tation from that facility is found by scanning all links from that facility 
and accumulating the cost of shipping material from it. Facility capital 
cost is calculated from the facility fixed and variable cost, DELTA value 
and throughput WST. Similarly for operating cost. Finally a cost per tonne 
is calculated and all information for the facility printed before calculations 
begin for the next facility. 

9.9 Subroutine MKTREP 

If the modelling includes the option of resource recovery, this 
subroutine is called to report any shipments to market. The Marketing 
Report lists shipments to each market by product and prints the revenue 
received. 

9.9.1 Glossary of Important Variables 

NRESRC - the number of different resources 

NUMMKT - the number of markets for each resource 

##t - total resource shipped to each market location 

RSCNAM - name of a resource 

MKTNAM - name of a market location 

9.9.2 Procedure 

For each resource, and each market location for each resource, a 
check is made whether the total shipment to it, WM, is greater than zero. 
If so, the name, amount shipped, and revenue are printed. 

9.10 Subroutine TPSHIP 

This routine prints a report of shipments from each intermediate 
facility (transfer station or plant) in this system. The routine is very 
similar to SUMREP which produces the report of shipments from sources. 
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9.10.1 Glossary of Important Variables 

NNDSLl - 



NANDTP 

NANDTL 

NANDPL 

NANDPM 

TRFIDN 

TRFNAM 

PLTIDN 

PLTNAM 

ORIGID 

DESTID 

ARCWST 

ARCOST 



Position in the arrays of link information of the first 

transfer station to plant link 

position in the arrays of link information of the last 

transfer station to plant link 

position in the arrays of link information of the last 

transfer station to landfill link 

position in the arrays of link information of the last plant 

to landfill link 

position in the arrays of link information of the last plant 

to market link 

transfer station ID number 

transfer station name 

plant ID number 

plant name 

ID number for the origin of a link 

ID number for the destination of a link 

material shipped along a link 

cost of moving a tonne of material along a link 



9-10.2 Procedure 

Transfer stations are considered first. Each link leaving a transfer 
station, recognized by ORIGID matching TRFIDN, is checked to see if 
there is material flow along it. If so the amount of waste is noted, the cost 
of shipping is calculated, a cost per tonne and a cost per year calculated, 
and these figures printed out. 

After considering all transfer stations, results are found for the 
plants in a similar way and the results printed. Shipments from plants can 
be to landfills or market locations. 
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APPENDIX 1 



MATHEMATICAL FORMULATION OF THE MODEL 



APPENDIX I 



FORMULATION OF THE MODEL 



The nbtation given here is that used in subroutine TSETUP of the Edit 

and Setup Program (ESP). The indices used are the identity numbers of the 

sources, facilities, resources and markets. Symbolism of the form S^ST ^ 

t st 

means include in the equation every ST variable with index s and arbitrary 

t* 



Indices 

s 

t 

P 
1 
r 
m 



indixes the sources 

indexes the transfer stations 

indexes the plants 

indexes the landfills 

indexes the materials recoverable 

indexes the market locations 



Parameters 

SRCTOT 



quantity of waste generated by source s in the 
period 



TRFLLT. 



TRFULT. 



TRFFCP. 



TRFVCP. 



TRFFOP. 



TRFVOP. 



lower limit on throughput of transfer station t 
in the period (if used) 

upper limit on throughput of transfer station t 
in the period (if used) 

fixed capital cost of transfer station t 

variable capital cost of transfer station t 

fixed operating cost of transfer station t 

variable operating cost of transfer station t 



PLTLLT 



PLTULT 



PLTFCP 



PLTVCP 



PLTFOP 



PLTVOP 



PLTKEP 



PLTRRN. 



Pf 



lower limit on throughput of plant p in the 
period (if used) 

upper limit on throughput of plant p in the 
period (rf used) 

fixed capital cost of plant p 

variable capital cost of plant p 

fixed operating cost of plant p 

variable operating cost of plant p 

proportion of waste entering plant p and 
leaving it as resources or waste residue 

proportion of waste entering plant p which 
may be recovered as resource r 



LFLLLT 



1 



LFLULT 



1 



LFLFCP 



LFLVCP 



UFLFOP 



LFLVOP 



1 



1 



lower limit on throughput of landfill 1 in the 
period (if used) 

upper limit on throughput of landfill 1 in the 
period (if used) 

fixed capital cost of landfill 1 

variable cost of landfill 1 

fixed operating cost of landfill 1 

variable operating cost of landfill 1 



DEMAND 



rm 



PRICET 



rm 



ARCOST 



od 



greatest amount of resource r that market m 
will buy 

price per tonne payable for resource r at 
market m 

cost of moving a tonne of material from origin 
o to destination d 



LTOLFL 

LNUMTR 

LNUMPL 



limit on total tonnes of waste landfilled in the 
system over the period 

limit on the number of transfer stations in the 
system 

limit on the number of plants in the system 



LNUMPL 
LCAPTL 



limit on the number of landfills in the system 

limit on total capital expenditure to set up the 
system 



Decision Variables 

Most of the decision variables are the material flows along links. 
One decision variable is set up for each linl< defined in the transportation 
link subfile. Other variables are for flow of material through facilities - 
the W. . . variables, and the integer decision variables for each facility D . 



ST 



st 



SP 



sp 



SL 



si 



TP. 



tp 



TL 



tl 



PL , 
pi 

PM 

prm 

WTRF 
WPLT 



WLFL 



WMKT 



rm 



DTRF, 



DPLT 



DLFL 



1 



flow from source s to transfer station t 

flow from source s to plant p 

flow from source s to landfill 1 

flow from transfer station t to plant p 

flow from transfer station t to landfill 1 

flow from plant p to landfill 1 

flow from plant p of resource r to market m 

flow through transfer station t 

flow through plant p 

flow to landfill 1 

flow of resource r to market location m 

integer variable 

= if transfer station t not used 

= 1 if transfer station t used 
integer variable 

= if plant p not used 

= 1 if plant p used 
integer variable 

= if landfill 1 not used 

- 1 if landfill 1 used 



Row Names 

These are made up as shown in the listing of equations, e.g., there is 

one row SRCGN lor each source, 
s 

Constraints 



ROW NAME 



MEANING 



SRCGN. 



Total shipments from source s to transfer stations, 
plants and Igindiills equals the waste generation at s. 



^tSTst - 2pSP^p . S^SL^^ = SRCTOT^ 



TFRTO^ 



Total shipments from sources to transfer station t equals 
the station throughput. 



S^ST^^ - WTRF^ = 



TRLE5, 



Throughput of transfer station t is greater than the lower 
limit on throughput, if the station is used. 



- WTRF + TRFLLT^DTRF^ < 



TRMOS. 



Throughput of transfer station t is less than the upper 
limit on throughput, if the station is used at all. 



- WTRF + TRFULT DTRF^ > Q 



TRFRM, 



Throughput of transfer station t equals all shipments from 
it to plants and iandf ills. 



- WTRF^ + TP^ + ,TL^, = 

t P tp 1 tl 



ROW NAME 



MEANING 



PLNTO. 



Total shipments from sources and transfer stations to 
plant t equals the plant throughput. 



2 SP + XJP^ - WPLT = 
s sp t tp p 



PLEST 



Throughput of plant p is greater than the lower limit on 
throughput, if the plant is used. 



WPLT + PLTLLT DPLT^ < 
P P P 



PLMOS 



Throughput of plant p is less than the upper limit on 
throughput, if the plant Is used at all. 



- WPLT + PLTULT DPLT„ > 
P P P 



PLFRM 



A proportion of the throughput of plant p equals all 
shipments from it to landfills and markets. 



PLTKEP WPLT + S.PL , + S ( S^PM^^^) = 
p p 1 pi r m prm 



PLAR 



Pr 



Shipments from plant p of resource r cannot exceed a 
specified proportion of the plant throughput. 



- PLTRRN WPLT + 2 PM„^_ < for all r 

pr p m prm 



ROW NAME 



MEANING 



LFLTO 



Total shipments from sources, transfer stations and plants 
to landfill 1 equals the landfill throughput. 



^'s si t tl ^p pi 1 



LFLES. 



Throughput of landfill 1 is greater than the lower limit on 
throughput, if the landfill is used. 



WLFLj + LFLLLTjDLFLj ^ 



LFMOS 



Throughput of landfill 1 is less than the upper limit on 
throughput, if the landfill is used at all. 



WLFL^ + LFLULT^LFLj > 



MAKTO 



rm 



Total shipments from all plants of resource r to market 
location m equals the amount received. 



£ PM - WMKT = 

*^p prm rm 



MKM05 



rm 



The amount of resource r received at market location m 
cannot exceed the demand. 



WMKT < DEMAND 

rm ^^ rm 



ROW NAME 



MEANING 



LFLTOTAL Total throughput of all landfills must be less than a 

specified limit. 



SjWLFL^ < LTOLFL 



NUMTRANF The total number of transfer stations opened must not 
exceed a specified limit. 



S^DTRF^ < LNUMTR 



NUMPLANT The total number of plants opened must not exceed a 
specified limit. 



£ DPLT < LNUMPL 
P P 



NUMLNDFL The total number of landfills opened must not exceed a 
specified limit. 



SjDLFLj < LNUMLF 



CAPITALC Total capital expenditure is made up of fixed and variable 

costs for transfer stations, plants, and landfills. It must 
not exceed a specified limit. 

£^{TRFFCP^DTRF^ + TRFVCP^WTRF^) 

+ 2 (PLTFCP DPLT + PLTVCP WPLT ) 
P P P P P 

+ 2, (LFLFCP.bLFL. + LFLVCP^WLFL^) < LCAPTL 



ROW NAME 



MEANING 



OPERATNG Total operating cost is made up of fixed and variable 

costs for transfer stations, plants and landfills. 



I ^ (TRFFOP^ + TRFVOP^WTRF^) 



+ S (PLTFOP DPLT + PLTVOP WPLT ) 
P P P P P 



+ E , (LFLFOP.DLFL, + LFLVOP WLFL.) 
1 11 P 1 



TRANSPRT Total transport cost is made up of all costs for shipments 

from sources to transfer stations, sources to plants, 
sources to landfills, transfer stations to plants, transfer 
stations to landfills, plants to landfills, and plants to 
markets. 



^ i . St arcs^Tj^^^^^'^i ^ ^ j c sp arcs^PjARCOST. 
* 'jeslarcsV^^'''''j ^ ' j e tp arcs^ V^C^'"") 
^ ^ e tl arcs V^'"'"''') ' ' J^ pi arcs^S^^COST. 



+ ^ . ^ PM.ARCOST. 

J e pm arcs ; j 



REVENUES Total revenue is made up of the amount received at each 

market location, times the price, added up for all re- 
sources and all markets. 



I ^ ( j:^wmkt^pricet ) 

r m m rm 



NETC05T 



CAPITALC + OPERATNG + TRANSPRT - REVENUES 
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SAMPLE DATA INPUT FILE 
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P 
121S 
Hi 

12b 
L2bB 
126 
I'.IN 

1^1 
IbZK 

ibl 

I'j'tK 

I')*. 

?21H 

IJl 

?2L 

221 

221 

221 

221 

233N 

2 33 

233 

23 3 

2 33 

2 33 
233 
2'<3K 
2A3 
2't3 
2't3 
2^3 
2^3 
2'.3 

3 2 1 « 

32 1 
321 
321 
321 
321 
321 
321 
333N 
3 3 3 
333 
313 
333 

33 3 
3't3^ 
3^3 
3<.3 
313 
3^.3 
3'.3 
3'»3 
3't3 
119S 



LiTTLt 
TEST 
1 2000 
i «> 

I 1 

b 
A C K f W 
IDN[ Y 

RENTON 

ELLE VL 

APANf t 

INCENV 

INCSTQN 

ELL? VIL 
I 
I 
1 



K INGSTON-OUI NTE 
DATA 



APANEf 
I 
1 
1 



[MGSTllN 



ELLVlLt 

1 
1 
I 



APAN 



INGSTOn 

I 
I 

I 



3.0 ? 2 

3 t 1 




LQNGMAL 0.3 



lONEY-I 



AOQOOO 
1 

6 00 

1 

17 00 00 
I 

I 

'^ i"! 

. ei n 

1 

37'jOO 
7'30no 

200000 
371)00 
7')000 

2 000 

C 
3 7 5 
donoo 

1 'J C n c 
3 7SOO 
/'iCOO 

2 00 00 
2 

3 000 
^i 

noono 

2 10000 
7^0CO 

2^0000 

2 
i7bCQ 
7Sr!C0 

2 
37'SOO 
7^000 

2 0000 

2 

ifOOOO 

5 00 CO 

20000 

'lOCO 

2 
'♦OOCO 
fi fl 

200000 
37^00 
7SOO0 

I'JOOOO 
"^OC 'lOCO 

2 



17 

2M 



^ 13 to 
10 CO 
l^Hl 

10 "1 

I'JHl 
lOOOCO 

l^noon 
3 20DCO 

I 

iq^u 

1 ■> >1 7 

iino 

1 G 
170000 
2 ti 



I 'i H C 
2-^01 

V)HQ 

OOCO 

00 CO 
lorc 
I'JM 
1"? ■? 1 
I'Jtil 
30on 

■jOOO 
0000 

2 CO 

I'* 91 
OOCO 
OOCO 
0000 

2C0 


1 OS 2 
10f^3 
lOf^^t 
00 00 
OQPO 
■5000 

c 



6'> 
10<. 

^0 



'tO 
10 



bO 

70 
00 
fvOO 



looooo 

^OCCUO 

1 1 o *? 

2 3 7 1) J U 



12 f ; 

6 10 '■} 
1100000 
2 0<.00:)0 



2 00uOn 

7cooeo 

4 3((00u 
2l00onr> 

2 2UO0OO 



10 0000 

*. 20 00 

rj^HOO I > 

12060000 



■J C D 
7 3 C 



2 00UO 

^300000 

dbOOOOu 

1 3000000 



3 3 



3 3 



^ 2 



3 3 



1 



3 i 2')O0nuO 



'fl') 1 

A22TYEN0ING 
'ill 

'•aZRICHMGNl 

A32 

'tS'rE-^NESTwN 
<.3^ 1 

'♦3 A i 

A34 

'.^ISTQttONT 
^•'il I 

't^l 1 

^'t'tK INCSTON 

'!<»'< I 

'^h(\ 1 

R.O.F. 

1^6PICT0N 

ISTe ATM 

FEKkrjuS 

2'>'iHArilLraN 

GLASS 



I 
1 
I 
1 
1 
1 

1 
1 
1 
1 
'; 
2 
2 
I 
I 
2 
I 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
9 



121 
12^ 
12fc 
126 
I'll 
I'll 
lAl 
152 
152 

L21 
12L 
12^ 
12^ 
126 
126 
126 
1^1 
lAi 
I'tl 
l'>2 
1^2 
152 
l^'t 
IbM 
lt>A 



221 
221 
221 
233 
221 
233 

233 
2'*} 
233 
2't3 

321 
333 
321 
33 3 
3^3 
321 
3 33 
321 
3 13 

321 
3 33 
3<i3 
321 
333 
3't3 



125000 
187^00 
2^0000 
1250C0 
1?^7^00 
2500CC 
2 

100000 

2UD0C0 
I 





lOOOCO 

200000 

1 H 7 *, C 
2 

ICOflOO 
200000 
lOOOCO 
l^roco 

2000CO 

2 

120000 

180000 

2600C0 

12<.000 

2000CO 

2 6000 



?8 

c 

'}? 
70 

3 
A6 
A 6 

b 

'53 

7 

1^ 
50 
2 1 
70 
101 

25 

HA 

70 

'3 

A 5 
't3 
AA 

5 

<50 
5 



l^lPl 

I '^4 1 

lf)«l 

dOOCO 

87000 

lllOOO 



20CO 

70000 

lOOOCO 

lOOCO 

1990 

100000 



1990 

1990 

H 7000 



1990 

19 e 5 
sooco 

9 00 

190OC0 



19 SI 

19«1 

19PI 

donco 

90000 

1 I on 

25000 

25000 

5 on on 
50000 



235500 

2 6 9 5 
352500 



lOOCOO 

30000 



lOOOOO 

5 000 

aoooo 

300000 

500000 

10 Q 
2 *• 5 
3000UQ 



100000 
22C0O0 
270000 
360000 



100000 
120000 

1 J 

100 00 



IdOOOOO 



1000000 



lOOOGOO 



2000000 



J 3 2000000 



i 1^1 


^19 


2 


12 


i l^L 


'»22 


2 


3n 


3 l^L 


*i32 


2 


50 


i 1Z5 


A19 


1 


1*. 


1 125 


'.22 


1 


'^? 


3 lib 


'►32 


2 


b'. 


3 12b 


*.19 


1 


21 


3 126 


^Zi 


2 


22 


1 IZb 


'.32 


2 


'lO 


3 1<.1 


'.22 


I 


5.H 


3 Ml 


'.3'. 


1 


7 


3 l**! 


'.A'. 


1 


19 


3 l')2 


'*32 


2 


2b 


3 152 


'tA't 


2 


26 


3 152 


'*<»1 


2 


32 


3 15^ 


'•32 


1 


3'. 


3 15'* 


'.3'. 


1 


10 


1 15^ 


'.'.I 


I 


62 


3 15*. 


'.'.'. 


1 


8 


33 3 


2 


't'. 


',221 


3',3 


2 


Hb 


*. 233 


321 


2 


AO 


*. 233 


i^i 


2 


'.5 


^2*13 


321 


2 


H7 


^ 2A3 
5 221 


333 


2 


22 


-.l'-* 


2 


12 


5 221 


^22 


2 


lb 


5 221 


'.32 


2 


37 


5 23 3 


'vn 


2 


flO 


5 233 


'.22 


2 


5b 


5 233 


'.32 


2 


12 


5 23J 


'^3'. 


2 


21 


•5 233 


't'.l 


2 


^1 


5 233 


'.'.A 


2 


50 


5 2't3 


'.22 


2 


72 


^ 2<t3 


'.32 


2 


A'. 


5 2'»3 


<.3'' 


2 


*8 


5 2*i3 


't'.l 


2 


17 


5 2^3 


'.'.'. 


2 


e 


9 








h 321 


*.19 


2 


12 


5 321 


'i22 


2 


17 


h 32 1 


^i2 


2 


3b 


f> 333 


^Vi 


2 


50 


f^ 33 3 


*',ll 


2 


28 


h 33 3 


'.32 


2 


lb 


h 333 


'.3'. 


2 


l^ 


b 3 33 


'.'.1 


2 


flC 


b 333 


'.'.'• 


2 


50 


b 3^.3 


*^ll 


2 


72 


6 3<.3 


'.32 


2 


55 


b 3'«3 


'.3', 


I 


'.7 


b 3*t3 


^.ill 


2 


25 


b 3't3 


'.'.'. 


2 


B 


•J 








7 321 


15b 


2 


25 


7 321 


157 


2 


'.5 


7 321 


255 


2 





7 321 


339 


2 


100 


7 33 3 


156 


2 


35 


7 33 3 


157 


2 


75 


7 333 


25fi 


2 





7 333 


339 


2 


25 


7 3^(3 


15fc 


2 


27 



7 3<. 3 1*.? 

7 3'.3 1J<> 
9 



? 33 

? 

2 1 21 
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OUTPUT FROM ESP 



* LITTLF K iNOSTDN-fi'jiNTE FSST v -M i UuTPUT r ^Jr* (rt^UTI^r irixf » 

• * 

DISCOUNT PiTE IS 3. CO "4 





C IVFN 


:N 


r-A X 1 "1Lt« 




PCSSM 


L£ 


ALLfi-*tO 




loCat; 


ONS 


IN XUN 


sou^cts 


'« 






TRANSFER STATIONS 


^ 




f. 


PLANTS 


1 




3| 


LAHDF ILLS 


^* 




t 



riFTIOf'S SELiCTEU I Pi T Ht ■! UN 

INPUT PFPOt^T - CUnPLfcT£ 

liUTPUT i^fPUf-r - CljMfLETfc 

LINEAB APPrflJX JrlAT lUN QF LArtOFlLL COSTS 

Mkl Tr F ILF T 

WWiTF FILf [. 



Llfirs OVFB TMf PfcttlOD F0»: 

TUfAL LANOFILLINC 9')<i'i'i9'^'i^ , TONNES 

CAPITAL fypf ND [TljPfS I ')^4'r74'JV'V. 



"iESGUBCE 



lARKf TS 



1 



VFMlCLf [I ATA 



VEHICLE 

t" U n tt f " 



NA-F 



CIST PE" TUNNf 
PCH riJU><, I 



P AC'FW 
L)Nr,HAL 



.10 



• CNTS«IU rlN!STP>' OF THE E N V ! f LiH -fc M 



» dO/uo/'Ji). 

wASTt ~'es.".Gf>TsT SVjTtii :iijnr L- V t P "i 1 uN 1.1 — tOIT iHb StruP f'f.iJ'jKAn " 

* 



» LITTLT KlsGSTON-CUlr^T,^ TL-,1 J U A UUTPUT F«Ol RGUTINE SUukCE * 



snuPCES 


- LA ft TYB 


■^ 1 

rniAL 




snukCE 


-ASIf 


L4HEL 


NflHf 


TLlNNt S 


121 


SlOWf If 


A Q 


1?^ 
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',00000 


1?6 
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17P0000 


l<tl 


NAPANEt- 
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^00000. 
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HASTt 
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GschTh 

o.oo 
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E HST YE *"■ 
fi i IbO . 



PLPULAT lUN 

GkUhTH 
/; PE« YEAS 



fur ftL 

HASTE 

TUiSNfci 

10600 80 .; 



TOTAL wn^TF FG>< T>+f AtftA ANj ?;!-■ THE -irtULE PFklOO. THnNES- 



'ibbOOni). I 



• » oo/oa/oo. 
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w- • 
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LA9FL NAME 



STATUS 



221 BELLEVIL USED 

ill 



233 NAPANEE NOT USED 

23 3 
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2*3 
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fii 
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0. 
D. 
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120000. 
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ANNUAL 
CAPACITY 

TUNNT^ 



)7'500. 

?bOOO. 

200000, 
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OF 
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iSfJl lltttjtiOO. 
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19<-)0 2 coo 00. 



I'l^.O 70 00 00. 
2001 4C0000. 

I'm!) 2100000. 



m 


©. 


i:* 


e»' 


i« 


W 


&i 


6" 


0. 





0. 





%» 


Q 


tr"" 


"r 


o« 


& 


s^ 


t 



ANNUAL 

CAP ITAL 

CUST.i 



0. 


•jSOOOO 


Q. 


118^000 


0* 


237t>000 


1;. 
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a. 
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0. 
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9* 
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l» 
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.■Toc-ono 




■11 n'S7 




. M G ^ -^ '> 




.hi^'i^lh 


- 1 


, n n r, ,-1 '3 ,j,. 


- 1 


.'■)O0'!00 


- 1 


.onijOOO 


1 


.'llC'-'On 




. T; G ) J d 




I f a ? 1 




./LI': 3'J 


- 1 


, r,:>, (,,,,,, T 


i 


.^O'lOO J 


1 -i 


. 'l')o Mit^t 


L " 


.■•>')'. ■j',^ 


i ^ 


. -i-y')-' 'tM 


- 1 


.OOf,'^, 'j^ 



W-IKTl'5 1 

WW<T I -i 7 
WiKT i:> 7 
WPIK Tl"? 7 

WMKT n'* 

WMKTJ 19 
WHKTJ 3'^ 

DTPF.Vl 
T <J F 2 ? 1 

otrf?:m 

OT'^FZ.'L 
D T R F .M .1 
0TUF?)3 
DTRF? 3 i 

nTt^F? n 

DTRF^33 
OTRF^I? 
QTRF^<^3 
OTRF^'t J 
0TRF?<i3 
DTtiF^^ J 
DTRF^'. ^ 

n T J r ? 'f 3 

0PLT3^ 1 
0PLT3?l 
OPLT J^ 1 
nPLT3<' I 
D P L T 3 i' 1 
HPLTI^l 
OPLT ^? 1 
DPLf.l? 1 
0PLTn3 
0PLT3 3 3 
OPLT333 
OPLT333 
nPLTS J3 
OPLT333 
DPLT333 
OPLT3 3 J 
0PLTl<i3 
OPLTS'^ 3 
nPLTJ^3 
DPLT3<t 1 
OPLT3'.3 
OPLT3-^3 
DPLT3'f3 
nPLT3<i 1 
DLFL'tl'^ 
QLFL'tl'^ 
OLFL^l^ 
OLFL^l'^ 

OLFL'ir* 
DLFL<f?^ 
OLFL'f?^' 

OLFL'f^? 



"- < -1 S L S 7 

^e TCnsT 

C h J r V F N u 

Nt Tc; ST 

C M y P V F N U 
■i A ■^ T n 3 3 9 

Hi^ -(1S3 39 
Jf; VF NUFS 
^^ TCfST 

1 1 L F S z' 2 1 
T *-^'^S?? 1 
'■11,-iTK' ANT 

> r W A T N r, 

Nf rniST 
T - L f s ^ n 

T"- "inS^3 3 

N I, •" T r' A N F 

C'.P I TALC 
n f ^' p A T N G 
N' TCnST 
Ti-L* -,1^1 
T ^' -> n S ^ '. 3 
iNU.-<Tf^AMF 

C A ;m T a L C 

u' t' ''RAT N G 

MF ^cnsT 

P L s r 3 ? 1 

PL-*PS3^ 1 

N ij H p L A r>t T 

C A " I T A L C 
n P r " A T "J G 

Nc TcnsT 

CnfAPITL 
Cm.IPRTnG 
D L f S T 1 3 3 
'^ L 1 P S 3 3 3 
NUMPL a NT 
CAP [TALC 
CPFkA TNT, 

Nt TCnST 
lhC AP ITL 
ChOPRTNG 
PLf ST3'»3 
PL'^tiS 3^3 
NUnPL ANT 
CAP I TALC 
UPF><fiTNG 
NFirOST 
C'fCAP I TL 
CHPPW TNG 
L r |_ f s *. 1 f ^ 

L F f- n S ** 1 4 

iMUf^LNOFL 
CA.^ ITALC 
r] p f "^ A T N C. 
^Jf TCi:ST 
LFLFS'.?? 

LF-ns^p^ 

N U .1 L N D F L 
CAP I TALC 



1 , yn j^o^, 
-I i .'r>'; ■" <*'• 

- 1 «. S '**,•'<. 'i 

- 1 'i . 1 9 '.■. ■'■ <* ^* 

- 1 , ";^1•^l'u.- 
l .00 '^ •.■>■■' 

-3 7.1 '13 •.-,/' 
-1 ?.: ) t'.:- 7 
-'', 7.19 <';3 / 

- L .^"-i^VOi^ 
1 .''ni:':,,,;- 

-\ 7 .\'U—*.I 

- W . 1 91 ', -^ 7 

- .4 7 . 1 ^n ^ -^ 7 

? no ^ ''■■'.■:> 

^ ? 7 T L - . n 

7 f' 'i .-' 1 U ■^ 
1 '^ ■"■■ i 7 U . '♦ 

1 .'' 

^ '1 3 1 '! K 3 
1 9 i 7 S > , ri 

1 3^^9 J*. ; 

■ ■' . < J 

1 .1. 
1 i-'-;*^ 7 ? . '. 

1 T M 7 ,^ -1/ . <. 

1 7 L'M 1-, , j 
^00 ■>■■;.'■' 

I .,< 
\^ I'. ^^^ , t 

S T (b 1 Ml-. . 't 

9.1ti J'.'f- . 7 

3 *• / " } 't -; , i 

T ':! ^ 1 r. ! ■ ■ . «! 

■ ■ . '■"' 
L .:> 

^ / H', -. 7. A 

■'■■ . ■> 
5^0'!^'? 7. 't 
S^fVih'i 7.*« 

* 
i) . L; 

1.0 
3 ? 7'1'Ji 7.t. 
^) 7 n J Uj f* . 3 

1 0':) 1'. u '*.<^ 

3/ 7v)9^ 7.f. 
'i 7 ^ U 1 .* . 3 

'J . '1 

^Ci}iO iii.O 

L.9 

1 I'n^iO.r. 

?9*ic)'» ? .-I 

!1 , 

1 ^3 00 ■ ) , '.} 

1 .0 
'i '■J 7 1.4 ,0 





DLFL'.^? 


nPf^ATNG 


- ^'i^nr4 


. ■> 




0LFL^2? 


Nt'TCUST 


{ 0*^4*^ 3 


r^ 




DLFL'.B? 


LFL"S<.3? 


? 00 -TOO 


. t: 




OLFL^i? 


>. F ■< Ci S i. 3 ? 


1 r}Pr>r, ."10 


.0 




DLFL'.B? 


NUi-LNuFL 


~ 1 


• 




0LFL^3^ 


CAP I TALC 


t, 3-' 3 '5 


•, •* 




0LFL^3? 


OpfOATNG 


1^-'.?7h7 


.5 




OLFL'^Sr' 


NFTCCST 


1 9.'7n-><^ 


.4 




OLFl^JA 


Lt-L'^SA3'. 





■ '1 




DLFL'.BA 


L F - f* S <♦ 3 ^ 


I 0.3 00 J 


,0 




QLFL'iM 


Nt'-LNOFL 


L 


> C' 




OLFL^J'. 


CAP I TALC 


^Nh*. I 


. 7 




OLFL'.}'* 


CPFRATNG 


1 ?T^ U ■: 


.3 




DLFL't 5^. 


NF TCnST 


1 3 7'1 ^ ^ .! 


.0 




OLFl^'* 1 


LFLFS^Al 


f.; 


» ' ' 




OLFL^'tl 


LF^OS't^ 1 


;>Tnr.n(/.o,, 


1 'J 




DLFL't't 1 


NurL^DFL 


1 


r- 




DLFLAAl 


C A P I T A L C 


lo>i^ ;- . 


.1 




DLFL4<.L 


CPE y ATNG 


'f 


>'^ 




0LFLA<.1 


Mf- TcnsT 


lOi'J *n 


. t 




OLFL'.'t'. 


LI-LF S't'.A 





,(.' 




DLFL't44 


Lfin')4AA 


^ Q n ; 1: '^ 


.0 




DLFL'.AA 


NUC'LNOFL 


1. > 







OLFL<»A', 


CAP I TALC 


q<y i,n^ , 


.'t 




DLFLA'i'. 


TPfftATNG 


7^oQS',. 


.7 




QLFL^'t'. 


NSrTCGST 


^'^'lin-.;, 


. I 


RHS 












CAIGUHS 


SkCGnI?! 


'iCinoor, 


, 




134 IG-^mS 


S^CGNl?'!- 


f, 0-^0 or 


. 




■Qi^IGkhS 


'i'^CCNl^h 


1 7 00 on 11 


, c 




OR IGkMS 


S '^ C G N 1 *. I 


tOii TO'^ . 


. L"! 




ORIC'^t-iS 


s.KcnNi52 


f; ) (^ 'i r> . 


■ U 




a >< I G ■? H s 


S'fCGNl'j'. 


I C^T>3 .? 


,^ 




ORIG^hS 


f-KPGSlS^ 


,_? nofwVin. 


u 




DPIG^^S 


f-K-ijSl'l? 


?^noO(t'> 


1 r, 




ORIG^HS 


"K-nS^'iH 


<? 00 0. '■»'). 


.0 




O^IG'^HS 


in^ns'iii' 


■?oonou. 


,0 




GRIG^hS 


lflthtal 


■-i')9^fi9<i i'i, 


1 .C- 




QJIGiJHS 


N U (* T P A M P 


n ^ 


..;y 




ORIGRHS 


NU-PLANT 


5 . 


, 




ORIG'^HS 


NU-LNOFL 


'i , 


,•0 




QRi GR^'S 


c A p 1 1 A L r 


'i'-JQqt- j.'j.jfj 


.€■ 




CHGGFN 


SrtCGNL?! 


^00 00!'). 


■0 




CHGG^^N 


'> '^ C G ^1 1 ^ '^ 


f.(\nnr. :f 


. 




CHGGFN 


SRCG^12^ 


1 7C'tOr"j. 


...1 




CHGGtN 


'iKCGNl**! 


"j ^1 '"1 n G , 


>''j 




CHCCF^ 


St^rGN15,> 


*'00i^C0 . 


.,(.■' 




CHGGf N 


SPCGNl*?^ 


1. 1^6'^OSn 


,2 




CHCD«G 


''KMOSlSfe 


(> COi"''! 01.1 , 


.B 




CHGD^-D 


.^K"1US1 ■?? 


.2 '♦n'ln^vi, 


'( 




CHGD-^D 


r-KnGS2'3H 


^r)')^-^'<0 


1 1! 




CHGDfO 


"iKf 0*1339 


Pd^O^jQ. 


u 




CHGTLFL 


LFL TOTAL 


'J.:)ggQr,g,^;j 


O 




CriGCPL 


CAP I TALC 


'^^M9.9--H''i^. 





anuNOS 








FX 


FACILITY 


:)TVF^?l 


I , 





FX 


FACILITY 


T « F ? 3 3 


o , 


o 


UP 


FACILITY 


UT'<F?*,3 


1. 


. 


UP 


FACILITY 


.DPLT3^1 


I. 


f.'l 


UP 


FACILITY 


OPLT3 3 3 


1. 


:i> 


UP 


FAC IL ITY 


JPLTT.3 


I, 


,,■0 


UP 


FACILITY 


CLFL'.I'^ 


1 . 


ll 


UP 


FACILITY 


JLFL'.?? 


1. 


1* 


FX 


FACILITY 


JLFL<.3? 


L. 


. 


FX 


F4CILI TY 


DLFL^3't 


^ 4 


.' 1 


UP 


FACILITY 


JLf^L^'il 


1, 


1 Q 



Uf" FACILITY 
END ATA 



[)Lf tc,t.it 



APPENDIX 5 



OUTPUT FROM APEX-1 1 1 



^^'[i ■iO/0'</0-i T[nC IS.T^.H fl H >" k - I r I C '.' r- f k U L f K '! G k A M 

AP£x-in CALL ri"? - i»F/( s , - is.C'j j = NL'rc.jST,'- 1 *'.^s ) 

.L«t^tl... .Vf.fc'h... .Pfit-i-'l. .t>lJl,A^. .HA'<A«i, .fARArl',, 



AftA-lM 1.^02 f-icLu LtrH&rn ^oooou lictal 



.CA^Aflb. 



(GFNf KATSD) 



(CfNFKATfO} 
tGfNEPATfctJI 



D0P»IP»L 
PRI-FNn 



(CENF>?ATEOI 

(GENf SATEUI 
IGENFRATET I 
( G E N f t A T t 1 
(Gt NtfcATEDJ 
IGENEHATED) 
(GENEKATFOt 
(GENLRATED) 
(GENEKATEul 
(GCNt RATED) 
<Cf NfRATED) 
r GENErtATFC) 
fGENEKATED I 
(CENt RATEDI 
(GFNf kATEUI 
(CENT^ATEO) 
(CENf P.ATEC) 



riA JFBR 



M[ NE«ft 



PRflfnuT 



pKoesA V 



RFCQUT 



[ NPUT 
HC-ANCH 
SET 
SE T 
SET 

SE r 

S^T 

SELECT 

BRANCH 

C-'A'.H 

•If* AnCh 

P'< I-AL 

PWAnC" 

SET 

PR I HAL 

ftiJANCH 

•< tX [NT 

«>< ANCH 

OUTPUT 

flKANCH 

EXIT 

EXIT 

HESSAGc 

EXIT 

Its SAGE 

SAVE 

<=* IT 

MESSAGE 

PAS I SOU 

OUTPUT 

SAVE 

EXIT 

"ItSSACE 

SAVE 

EXIT 

* E C « E A T 

St^ANC-^ 



i 

« 

n N iy I -: 

KNU5 J 
KNRrtS 

K, N iS IM 



JTDElTA 



FULL/SPEC 



1 t J f V 4 
11, ■M 

NETCiJSr 

■i 

,1 A J t •< J 

n A Jf tJ 

"1A JEf*-* 
l.Gt-^ 

.1 A J E < ■< 

rt A J t H -i 

►1A JE Wr! 



M I Sli Hk 



PkObOUT 



pKdtiour 

P K H S A V 
nlNEKK 



PRatJSAV 



PIAJOk ERROR. APtX TERnlNATIUN 
hlNU^ ERtiu. APEK TtRnlNAllUN 

PkGliLEi UUTPUT. APEX TtRPIlNATIDN 
FULL/SPEC 

Pi^UdLtl SAVLD. APEX TERMINATION 



PkLIil'UT 



.1A Jt 



DATE d9/0'S/0tt TI«i^ IS.^b.l^ 
ruPuT » 



A V 



I 1 I 



r X r C U T 1 CI rt 



AfEX-in 1.20^ 

»» APfcJl UNITS (Jittj ■ .'•:>'^ 



HeAJfH, CAi'O NO. 
N.FAOt", CA^^C NO. 



HEADE". CA9D NC. 
HEADF»<» CARD ND. 



HEAOEH. CAf.0 NO. 











<■»*»» C4<'P f;AO SbinAKT 


I 


(Nfl-t 






■Ji^T^AST 


a 


(■^G-V 










S Xt ,!■ 


liClH 


=: 


(jPti^ATNC 




F HE f 


kL'h 


z 


T)<AN$P><.T 




Fi^f f 


CUH 


= 


REVENUES 




FS£E 


ROW 


3 


nETCOST 




Fi*EE 


U'Jh 


» 


ChCAPI TL 




F^EE 


rf3h 


E 


CHJPRTNC 




FREE 


hQW 


« 


CrlT-«spi<T 




FOEE 


«0» 


- 


CH^EVENU 


H I 


t COLU 


nNS 






?1L 


[KHS 










fi^tS 


NArt 


= 


CJ'<IO'»HS 




RHS 


NAMF 


- 


Ch&GEN 




RHS 


NAf E 


- 


CrtGUlD 




«4S 


NAME 


' 


Ch&TLFL 




tins 


Nihfc 


== 


Ch&CPL 


7/<) 


t HOyNOS 








OOUN 


") 5[ 1 


f 


NflflE - FACILITV 


7'*^ 


( EN04T4 







). . 



«v»v««»49(r 



" U T 



S V 



S T t T J S r ! C S 



9#»^«9««*« 



»ii»«» f,fNF":4L STATISTICS »»«•* 



AUTO StLfCTITN 



BND 



^^ ONTV*ST 

- PPFffiT*^!', 
= r J I & >•■ M S 

- FlC SLIT" 



ca>*ST>;ftiNTs 
r 'J ( 4 J 

LE (L) 

:, t 1 r, I 

c i ( M 
TGTAL 

t C " C " s 






C■JLLl^NS 
r i"; T A L 

1 ! .1 f L ( 1- ) 
-: £ C F L ( <i 1 
r: C S F L ( ■* t 



wo MJ5 ILULl . 

S ft I J5 ti-HM . 

1^5 TUTal 

07'.1.J0 AVF- N^/CUL 

lU'j'tOO flvfk n;/-!()h 

OL'/l K LT f!JS (CdL) 



fl ISC. TOTALS 

^? DENSITY 0/a 

fjt.'i UNli-Ut VALOti 

!).3^ lMJl«i.CT NAfftS 
«.^J TOTAL VALULi 

PRUbLFn BLUC^S 







L'f') 

I 



««««« anuNOS STATISTICS •**»» 






NAnF 


= FACILITY 





FX 


A 


Z« 


? n: 


2 


PL 


lU. 


L(l 


UP 


■i 


fti 





LH 


L/P 





fR 











m: 











I 
SI 






wH 


n ~' 




Si 





hR 








»«.««* RANGES STATISTICS '*«*» 
NO SETS ACCEPTE3 



NOTE- 



Nwnw NflNn AND NSnG ABF resident In central '^tltJWY 
TUTAL LENGTH (LKVECNr-l IS '^^ 



SET 
SFT 

VET 
5ET 
StLt-CT 



KND I 'i 
KNG'> J 
KNCHS 

■(N-fNG 



I- 4 J t » li 

'<f TCCST 
1. 

% 



KlfHt «.* 



•» AftX UNITS USED 



2.UJb 



»«*#» ^ f L 



C T ! N »e»** 



FUNCT ION 



StLECTED vfCTO^S 
Ct LL 



C?JFCTIVE FUNCTION ( KNLI-iJ 

CHANGt nPJECTEVE FUNCTION ( t^NCrtOaj 



RIGHT-HANT S IDE 
CHANGE RIGHT-HAisO SICE 



douNDS SE r 

■'AN&FS SET 



( KNHHS 



( KN9NC 



NAwf 
NETCuST 

FAGlLtTY 



fULTIPLIERS -- 



OlKfcCTION 



CELL 



( BPSCbJ ) 
( SPCKUHJ ) 



( BPSRHS I 

( epcHf-Hs ( 



VALUE 



L.OOU ( KNDIit ) 
0.000 



1.0 00 
O.DOO 



nlNlrtlZt 



S«ANCn 
CkASH 



nA JF St? 



CRASH RESULTS - UFhAINING L0CIC*LS • ^,6 

BALANCE STt;UCT!J= ALS • Ih 
OTHEB ST^UCTuBALS ■ b 



"wanCH 

PR I rAL 

QPTIf^AL SOLUTION. 

miflNCH 
PP MENU J■ftA^C^' 

mx INT 



nPJFCTIVF = 
PPlKFryC 



MA Jf i« 

-13^^0214. 00'. b'^S 
rii Jf i,n t 

1AJt*it -'JQdlJijT 



pafJ'-.-lUT 



•♦ APEX UNITS USED • 



** APEX UNITS UStU 



*« APEX UNITS USED 



2,MT 



i.J^i 



'^.t.li 



P A k E n T 
NflQE NHDt 40R. 

Nt)i f*r}. ma. 



STATUS 



I iMTFGfki 

INTEGE-; S•JLUTI'J^ FCLiND AT vJOf 
IS ASSU^^ED nPTlf'AL 



'IHJECTIWE 
FUNCTION VALUE 



SUM OF 
h -iACriLnS 



- TYPF 



- SEPA^'ATIDN VAfciABLE 
NUliJtK LOhlK LlnlT 



UPPtW LIMIT - kANH 



1 3<:^C<;i'(. UU4'i4t> ^.C'JO 

1, -ITH f LCVIT I JnAl wALUr 1 3 .^ T 0^ L 9 , " <r "i q"- , 



•<ESUURtb 
UNITS 



5.5 



f*R ANC" 



•A Jf t . 



PK '}tlS A V 



PkUBSAV 



OUTPUT FULL/SPFC 



•• APEX UNIT5 UScD • a, Oil 



D*rE ao/03/oti rif^E ib.n^.'i'i 



Cllf-SrrAlNTS 



APEX-lII 1.20^ PACE 



P«InT UCTION • FULL 
NArtF - QNTWAST OIJ 

01? - -iNlnUF COBJ 



iAP NARfc = 
NETCOST (*HS 

CCH5 



a^ ICRhS 



NUr<3t R 


NAME 


TYPE 


STATUS 


KQW ACTIVITY 


1 


S«CCNUl 


EQ 


Bl'MDlNG 


■.UUOOO.UUOOU 


^ 


^«CGNl?5 


EQ 


aiNOlNG 


bOOOOO.OOOUO 


3 


^KCCNl^f, 


EC 


BlSOlNG 


1700000.0000 


*i 


^«CCN1AI 


f C 


PlNOING 


t>00000. 00000 


5 


SkCCN152 


EQ 


eiNOING 


600000.00000 


6 


SRCGNl^A 


FQ 


aiNLiING 


lOhOObO.2000 


7 


TRFT0?21 


f 


tiiNaiNG 


* 


8 


TULES^?! 


L£ 


SLACK 


-iei7s(n.')noo 


c> 


TSH0S22r 


CF 


SLACK 


lhu080.2000C 


to 


THFRr231 


EC 


HIN3ING 


» 


1 1 


THFTD333 


EQ 


PINDINC 


■». 


L£ 


IXLFS233 


LF 


SLACK 


^ 


13 


THMnS233 


GE 


SLACK 


*' 


I'. 


rRFRMi33 


EQ 


BINDING 


•■ 


1^ 


TRFT02'.3 


FQ 


PINDING 


*, 


lb 


TSLFS?'.! 


LE 


SLACK 


* 


17 


TRHOS2'.3 


G£ 


SLACK 
a IHDING 


if:. 


18 


IRFRf'^'ii 


EC 


i 


19 


PLNTD3^1 


FC 


BINDING 


m 


^G 


PLtST321 


LE 


SLACK 


-B51'.79,3')d00 


?i 


PLwrjss^r 


GE 


si NO INC 


« 


^? 


PLFRWIZI 


EQ 


flIND[NC 


.',i; 


^i 


PLaH3211 


LF 


BINDING 


■ 


21 


PL4R3212 


LE 


SLACK 


-'.30O'i.O10OO 


ib 


PLAR3^13 


LE 


31N0ING 


• 


lb 


PLNT0333 


EQ 


aiNOiNC 


.,% 


21 


PLFST333 


L£ 


SLACK 


;*f 


?fl 


PLHn',333 


GE 


BINDING 


"* 


J-i 


PLFRf(333 


EQ 


rtlNOING 


'*' 


30 


PLAR3331 


LE 


BINDING 


■■*■ 


11 


PLAP333? 


LE 


SLACK 


'-'• 


3? 


PLAR3333 


LE 


tilNDING 


• 


33 


PLNTm'.S 


eo 


BINDING 


, 


3'. 


PLFST3<.3 


LE 


SLACK 


-AooooQo.ooao 


ih 


PLi053<i3 


CE 


rf I NO I NO 


• 


3f> 


PLFeM3'.3 


EO 


B INOING 


, 


37 


PL4R3*.31 


LE 


BINOING 


• 


38 


PL4e3*3? 


LE 


SLACK 


'^0000,00000 


3<J 


PLAe3'i33 


L E 


dlNOlNG 


, 


'lO 


LFLTfltlQ 


EO 


■BINDING 


,, 


^1 


LFLFS'.iq 


LE 


^INOiNG 


« 


•t? 


LFfiflS'iiq 


GE 


diNQiNG 


?■ 


'.i 


LFLTn'.22 


f G 


HINOINC 


*"■ 


<>'• 


LFLeS<.22 


LE 


BINDING 


,■''' 


'(•) 


LFMOS'.?? 


GE 


f iNOlNG 


•'■' 


"(f) 


LFLTO'.32 


ECl 


JiNUING 


• m 


-i? 


LFLFS'.32 


LE 


SLACK 


-tjOOOOO.OOOOU 


'.n 
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^.-i 


.60SOO 





APPENDIX 7 



SOURCE CODE OF ESP FOR CDC 



c 
c 
c 

c 

,:C 
c 

c. 

■f 
C 
r. 
c 
t 
r 
c 
c 
c 
•c 
e 
t; 
t 
c 
t- 

€ 

€: 

C 

,£ 
C 

c 

c 
c 
c 



►^n':i F I CftTi .IN Fij.^ coc 

AUGUS T It 19 ^i> 



4 



nijT -■A-i AND CiLCULAT-D l)ATfi iM'J AlSu CHbCKS rC" (jeVlCUS 
OATA L^PGkS. 

!f- Ni tr-'R.li'S AkF ■JtTt CTt-:), iHf P^UGkah r^cY W^^ITf fILf. 
'JNT-AST r>iW [-NTkY T1 THr «ILP tlA^,^&Gf:, AND ALSO A FILE 

Ti -M usrt:, iH co.Nj jnct [.jr. with outhut pku." thf f"[LP» H r 



PfiUGkA'-'-t'J HY L. Jf""^(<IrMS, 
MOuIF It Q tiY J . Pf.-LAK. 



JULY, l<)en 



UMIT 1 - J AT a f-'.U APix - T MLt 

UNIT -^ - OATA fiw <hf"j»^T ot l^r ■(atl:k. - C f ILT 

UNIT ^ - ^ATA INH'UT 

UNIT h - PKl'^TtJ lUTPUr 



c 



THC ruOtL CUNSIST^j ar T-^H FJi-'TkAN PkUGWAi-S in Mf uStJ IN * 

ONjjNCTIiiM mTH A MlXfcj INIIGEI-J LIMA^^ ft-^'JG''A"<f"[NG ^'AL^AGt * 
sue* AS APCx-III 0"^ CTC 1-; rt'Sx-.-IH UF lirl. « 

THti t'JiJGVAH, THf FOIT AUO SrTUP PVUGkAn, KfAns IN Kb'H DATA * 
^Nr; CALCULATfS VALUE:! TH f N T •■ ■) TmE f- J L P . THE P-'OGffr'" P K 1 [v T S * 

* 

V 

<> 

* 

» 
f 

»** IiUriAL l)f CL AsATlON UF L VA.^ifit^LtS AS kEAL 

I'IPLICIT .?tAL(Ll 

">«* iKCLAi^allUN t)F VAKlA'iLfi FIJ< TITLFS 

A Mi; MflMfS 
•< :: a L A S 7 V S K 
P<^ AL TITLF ,!.'lJ^<NA.1,^FCNA:i,S'?CNA-i,T'?FNA(^,HLTNAn, 

I LFLNA'-. .N^CNAM.t-KTNAi- 

ISTFGF-^ I' ,^,T ,C 
I N T FG C ^ T T F '' J , t k F L A G , •< J N Y -i b , 

I t^J'^BtG<kUNENJ.lNt^LH,uUTktP,TWkrTt,UHi<ITr,LAMJClJ, 

itf S-CIDM,TwFION,PLTinN,LFLlUN,hKTIliN, 

1 ■I-tIG[C,OFjTIO,T>^STAT,PLSTAT,LFSfAT,STATJ 

»** GfNtPAL CJflr.jN tiLJCK, 

C'J "I'-'JN/Gf NOAT/AST^SK ( I.-)) . T I TLt ( ^) »^UNNAf1( 5) , 
1 LT'JLFLtL'^UnTK:,LNUlPL,LNUfiLF,LCAPTL,'iAT£, 

I ><.r<,T,0,T'.)TLk ,>,£.>< Flag, OAT, 



UCOG 
OOoo 
000 
0000 
OGOo 
GOG J 
■J 
C'OUO 
uOOu 
uOOO 
■j 
00 GO 
OGOU 
ud 

0000 

ouoo 

OOOu 


0000 

00 
00 

00 
oouo 

000 
C U 'J 
0000 
OOOu 
U 
UOOO 
QOUO 
00 
(J 
OGOO 
jOOu 
OOOG 
00 
J 
OOOU 
00 
OOUU 
00 
0000 
uOOO 
uOOu 



00 

0000 
u 

0000 
uOOu 
00 

oooo 

OOOo 
00 J 

00 

0000 



OlOC 
0^00 
JOO 
u'lOO 
Ot»00 
U6 00 

7 00 
OH 00 
0-^uu 
10 00 

1 100 
i^OO 
1300 
I'tOO 
I-)00 

1 *)00 
17 00 
IdOO 
19 00 
^000 
,^100 
i'?00 
^ JOO 
i^AOO 
^^00 
<^fjOO 

2 7O0 
^ wOO 
d 400 
JOOG 
3100 

i iOO 
J'tOO 

jf>0'j 
i 7 00 

jboo 

'J4UG 

^f ooo 
'.IOO 
<i^00 
<t JOO 

't^oo 

'tbOO 
<.700 

'»«oo 

^.900 
^0 00 
^100 
^^00 
:• JOO 
b'tOO 

•3^00 

bfaOO 
^700 



i 



C 
C 

C 

c 



c 

c 



>J ♦ => 

•^ = •5 

•4 = ^ 

T' 1 

LI ^^»AC 
NP ACT = 



CALL 
CALL 
CALL 

IF(M 
CALL 
IF(N 

CALL 

I^^(T 

IFM 
STOP 



L /. N 

r>(Un 



^f;G,-!'JNtN'J,,vUf'IY,'<j , lN^t*^,■]U^KF P, TwRI Tf , OhKI Tt , 
DCL),MJnVLCtNU'ij'<CiNUl7i<r,NUnHLT,NU.'^L(-L»NkS:S'<Ct 
r ^ T O > , N tJ J G t , L I N P A Ci 



1 N [ r I .". L i ^ t- 1 V I c e; mj ,'1 h f » ") 



= ';•» 



0/. Tf ( 

SLUriC 
U-T.'if . 
U .- H L T . 

L A N ri (- 

Kt S'i'C. 

L iNKi 

w^ ITl . 



;aT) 



0» 



GT. 

r. T. 

L 

L U . 1 J 

r J . 1 ) 



CALL T 
CALL P 



K A M H f^ 

L A N T S 



) CALL ^ A k K, L T 



CALL T 
CALL 



St TUP 
Sf TUP 



OOOutJdOO 
0000t)^00 
UOOOhOOO 
OoUOo loO 
UOOOt.^00 
OOOat. 300 
OOOut'tOO 
OOOOti dOO 
OU0'J6t)OO 
00006?00 
OOOuboUO 
U000bs>00 
OOOO/OOO 
U iJ U / 1 
OOOu I'-fuO 
OUOO/ JCO 
OOOO/'.OO 

0000 7 /Ou 
000/600 

OOOooOuO 
OOOOcSlOU 
OOOOa^uO 
0000<J JOO 
OOOOo'.UO 



c 

c 
c 
I 
c 
c 



c 
c 

c 
c 
c 



c 
c 
c 



« 

9 TnlS i^'JuTlNE i^rtlTL'i A hiaDInO aT T^iE nLGlNNlNC CF- OUTPUT * 

* Tk Jn SACht'UUTINt ' 

* « 

»** Initial uecla^^ation of l vAr^uitfi as keal 

I'^PLICI I KM JL (L) 

*** n:[:LfiHATItyN OF VARIAhlFS FG-^ NAntb ANU 

r I T L t- ■> 

'^. EflL A'lTWS''. 

R=^flL TI iLt' ,kU'^NA.'^,<'tC''iA,'i,'iKCNA'^,TRf-NAM,PLTNAnt 
1 LfLNAPi^SLNAM.H^TNAfl 

INrt^,^"^ k,w,T,L; 

iNTF'Jii^'J TDrF'<»,tkKLAG,KijNYkS, 
I tJUN;iSl.»KONf:Nl), IiMKr t^iOUT^. f P, TflW I Tt tOrtRI Tf ,L AhUCO, 

?: S'^.CIDN, TyFi;)N,PLT10f't.LFL UJN,«KT ION, 

3 UiN'IGUUUtSTn.TKSTAT.PLSTAT.LFSTATtSTATJ 

RtAL PThNAH(JJ 

*»* GFM W.AL ClMHC-n tILUCK 

CTf-^ON/f. rNQA T/AS T^5K( 1-j I , T I TLt. ( -J ) .KUNNArtl "> ) , 



I 



LTuLI-L.Li^Un TP,Lh'JlPL,LNUr!LF,LCAPTL,CATE» 

l-,H,T,U,TGTt'<-',tKFLAC,OAT, 

*<UNOt{. ,aUNf:NU,KUNYRS , INKEPi JUTktP, Tw« ITE .L)H*< IT£ , 

LANDCOiNUlVf:C,NUnSRC»NUflTKF ,NUnPLT,NU^'L.FL,^^^cSwC, 

hUn-*K T ( :»» ,NPAC[ ,L INPAG 



^ATA «T-4NAH/*'ST AR T", "SnURC [■",•' Tt' A IMF l^","Pi_ ANTS", "LA NOFL" , 
I "1Ar<'Kt;T","L INK: rt","TSt TUP",":)Sf TUP"/ 

N " ^C,c =NP AG I *■ 1 

Wk I T' ( u , lUI ) AST»S^ , NpAGf .DAT 
in I FOki-iATC " I", I'lA^i, IX, "P ACE ■Mj.",[j/" f" , 1 13X, "V", AlO] 

Wi? IT':< w, Hi^ » 
107 F'H-ATC* ?". ^)^,"t"!NTA'<IJ h I M b T ■< V :!F Tht c N V I (J QN !-F ^ T — ", 

1. " WASTE ^ANAGFi^rNT SYSTt'lS r UD E L- V t R S I UN 1.1 — ", 

? " rniT ANn SETUP PRaGCA-1",h^,"*'V" '^", 1 lrtX,"»"» 

t^= I TF, ( S , 1 1 I ) TI TLt -.KUNNflri , MTNNAHi N(t-0UTN ) , ASTRSK 
111 F.1>"*AT(" <■•', '3X»^AH,bAH," OUTPUT FR(iH kUUTINE " , A ^ , ■:. x , " *" / 



^FTU^IN 



OOOO-i ')00 


OOOOotjOO 


0000b 700 


0000 obOO 


UOOOt^'JOO 


UUOGVUOO 


OOOO'nOO 


000U'> ^00 


0000-* JOG 


OOOO'/'tOO 


oooo->bao 


OOUO'ybOG 


OOOO'J 700 


OOOU^dOO 


ooooy'^uo 


0001 U 000 


00010 100 


00010 JOO 


O'joio J 00 


OOOiU<tOO 


00010!.OG 


00 10 600 


00010700 


0U010600 


00010^00 


OuOllOOO 


oooiiioo 


GOULWOO 


OOOli JOO 


000 I I'tOO 


0OGlit>00 


OOOl 1 600 


00011 700 


oooiirtoo 


OOOll'JOO 


OOOl^Ouu 


0001^100 


OOOi^'^uO 


OGul.:; JOO 


0001 ^'f 00 


000 WbOO 


GOOl^bOO 


00 01^ /Ou 


oooiijaoo 


0001i900 


0001 J 000 


001 J 100 


0001 J^^OO 


00013300 


00 01 3'tOO 


0001 J500 


000 1 3gO0 



c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 

c 

c 
c 



c 
c 
c 



« V 

* THIS -JQUTINF PkI.^tTS Tri£ Ef-'i^aR NUPlotK ANO SFTS FLtG^ » 

* Tw-JITt AND DMklTt TO iJ. * 

* AFTF*? 10 tkROkS THt ^^«aG^<Af^ 5rUPS <■ 

*«* INITIAL OECLAWfiTIQf- OF L VAKlA'^Lfcb AS REA^ 

IrtPLICI T -<PfiL It) 

*=»* DtCLAPATION GF VARIABLES F'R NAHtS AND 

TITLES 
i^FAL AST.^S< 

■i£AL TlTLEt'<LJNNA.«,VtCNAM,S*^':N^'1,TRFNAPt,PLTNAM, 
1 LFL'>tAn,-:SCNA,1,iKTNAM 

IN TEG t*-^ ►•',H,T,i; 

INTF^FP. T^TFr^^,i«^LAG,K'J^^r(^S, 

I ^UNttt G.kUNLr^L}, I N Kt P , HU T i^t P . T WK I T t , QWR ITF ,LAMJCC, 
e Si'CiaN,T(5FI[)N,PLTU)N,LFL[DN,MKTIDN» 

II C*IGIU,UtSTiJ,Tr<STAT,fLSTAT,LfSTAT,STATJ 

«*♦ GEihE^AL COinQN oLO'JK 
C1f»*nN/GfNJAT/tSrkS'<<l'>)triTLF('>*,^UNNAh('3), 



1 

? 

3 



LTULt-LfL'MJi^T'^,LNU!"li^L,LNUf"Lf,LCAPTL,''ATet 
•<,H,T,J.T'JTtV-,rt<FLAO»JAT» 

KUNhi£G,KUNLN-),kUNrRS,lNKtPtUUTKtP«T^'knE,!JwkITE» 
LANQCD,'HU1VLLiNUrtS'<C,NUnTi<f,NUnPLTtNUMLtL»N^;LSkCt 
MUnf^KTO* fNPAGt uLl-^PAG 



C 



AN Ft<«nw '^l.T'JRN FLAG .lAY HF UStO Ti) HYPASS THE fP^'ONFCUS CAkL/ 
E V F L AG » 1 
;u? ITE='J 
T^P, ITF=0 
T'}T[k^; = Tr;Tt R:. ♦! 
IF < THTE.-!*^ .GT. 10) CO TO ^^^4^^ 
■JO I TC( (-, lOOi) ( ASTkSK( I I , I =1, 101 ,r4fcR(N 
lOOl FiT-' f-ATt /lOA-3," E«:RUk NUr^iit": ",lJ/» 
nt TU-'N 

V999 1*! TEfi* , ^OU'Jt ASTkS^ ,ASTRS«< 

9001 Fn^rATt / liAH/i,OK ,'• rn*<L Than ten r-tkOkS - I QUIT "/l'JA«) 

STnt> 

E NO 



oaai3/oo 

0001 JdOO 
OOOL J'JOO 
OUOMUOO 
OOOl'.LOO 
GOOl't^OO 
000 1*1300 
0001'. <.oo 
1)001^^00 
OOUi'.bOO 
0001'.700 

aooi'tdoo 

OOUl'f-JOO 
0001 bOGO 
OOQl^lOo 
OOOI'jZOO 

oooibauo 

001 ^'.00 
OO0l5tJ0O 
UOOlbbCO 
0001:>700 
0001') vHOO 
00015400 
00016000 
0001 1. 100 
OOOlbi-'OO 
OOOlh JOO 
000i6<t00 
000 16^00 
OOOitibCO 
0001 6 ?00 
OUOi 6(100 
OOOlt iitv 
00017 000 
00017 100 
U0017ZOO 
0001 73uO 
OOOi fibO 
00017500 
00017600 
OUOl 7 ?00 
00017000 

OOOi /voo 
OOOidOOO 
OOOl.-i 100 
OOOltiZOu 

OOOlri JOG 
000 Id'tUO 
I f) ■> G u 
OOulrthOO 



c 

G 
t 
t 
t 

e 

€ 
£ 
C 

e 
c 



c 
c 



I 



* ■» 

* THIS i^CnJTINL kL^^S In AlL ^ii'f-Oln A N IJ GLNfwAL ' 
» P^k^Alt. Tt << CA-"vS * 

#'?* INITIAL ;.;?. CL AWanUN U^' L V/Vi<lAHLtS AS kLAL 

[ "1 P L I C I T K f A L ( L) 

*** OrCLA'.ATUlN OP / A •=( I A iLf S f JJ NAnt^i A M L) 

TI TLt'S 
■J=;4L AST^SK,Asr 

Wi^flL TITL? ,('UNNA"i,VfCNA"r,S'^CiSA.'l<T^FNAr. ,f>LTNAn, 
Lf-LNAinff^SCNArtiilx, TNAr' 



I-^TFCrr; f',-., T,,),L1N( S 

I N T FGf ' T U T E ^ ^ , i .V f^ L ^ G , .( J N Y ■< S , 
I fc U N It t G , -J 'J ■■^t iSU t 1 :n K I- P , n r t- f P , T H R ! T t I J I- ■<■ I T [ , 1. A N ii C J , 

? S i^. C 11") N , T t' F ID N , f- L T ! i) N , L F L I Li N , n K T 1 L.- N , 

i Hi^ I ■'. i , O c S r I , TK S r A 1 , P L S T A T , Lh ^ T A T , i T A T J 

C Irwnh/C^-xDAT/ASrKSK ( L*? I , T I TLt ( •> I , « Unna r ( ^ J , 



1 
i 

5 



LTULf-L^LHUir>^,i.NU^»*L,LNiJ/^LF ,LCAPTL 1 t AjL , 
■^,W,T,:J,rilTf«- ♦tkFL4b.DAT, 

L A N ij C J t N u 1 V t C. f" 'I S !• C . N U n T r^ F 1 NU nP L T , N U .- L *■ L , N ■< L > *^ C 1 

Nd M h « T ( ' ' ) , iM H* A 'o t , I. I N P ^ 'j 



* * * 



'"/ 



10 



coh-ON/ vrc )AT/v( r.N A.'^ ( d) iCiSTiHtiO 

^f ftL n^-H.t^'(l^),T/JlJT-^>( J),rir('t),FI[.}('»),NLFCS(n» 

3F .1L NilYF S( i' J 

TAT/' Tl NkCP/'-L ». i-.LV .it","SSAGfS n","NL¥ "," ", 

L "T- anSP:J^","T AT I;iN l","IN'<S nuT"," l 1 b T i: D ", 

2 "C'l't'Lf- TT" ." "." "i" "/ 

DATA T JuT''^'/"^ Xt CuT U", "fc 'AJ'i'^fl -'" . " Y ilNtr " , "C P'-'^L t T ' " , 

1 " "t" ","L'J"tPLf Tf "," '%" 
^AT.", FIT /'■ »,*•• •',••-;< IT £ FI","Lt T "/ 
0\TA Fl't /'• "," "."Hh! ITL F I "«"Lf "/ 
DATA NLFCS /"FI«tD AlV*,"U VA-ia4","LL LANJF " , " ! LL CfjST", 

I, "S ","LlNhay .\","PP-iOX IrA*',"T lOn r)F " ,"LtNDF ILL", 

2 •■ COSTS '■/ 

;)ATA N.JYrS/"Nti ","Tf.S "/ 
(lATA AST/"<"<=*****v'V 

»** C'^t:AT'"- LlNh UF ASTERISKS 

AS T-?S'<( J J=ASr 

CrjNTlNijt^ 



UOOio ?00 

OOOl'y 100 
00 i'^ iOO 

JOJi'^HOO 
O'JOi *^00 
(jOOiVbUO 
000 i-< 700 
000 i 'J a 00 
OOOiVJOO 
000^0 000 
OOO^U 100 

coo<:;o ^!jO 
ooo^Oiuo 

OOOiTO'tUO 
000^0 '3 00 
OOU^OhOO 
OGU^O 70Q 
00^0 d 00 
OOQi^O'iOO 
OuO^l 000 
OOG<:1 100 
00 0^ L i^OO 
000*^1300 
000^ L'tOO 
OOOiii'sOLi 
000^1, bOO 
OL)U^ i 700 
OOOt'l rtOO 
00 0^ i ^00 
OOC-iili'OOO 
000^^ LOO 

UOOiT^ JOO 
OOO^^AOO 
OG0ti^5O0 
000^^600 
OOUtlt^ 7 00 
U iT ^ .^ 
uuo^^ -^OO 
00 0*^ jOuO 
000^ J LOO 

'J ^ J J o u 
OO'j^ J'tOO 

uuo^:ibOo 

00 0<^3 7uU 
000^ JaOQ 
OuuZ J *GU 
OOOZ'iOJO 

000 ^t 100 

OiJU^I ^00 
i' <» i 



** » 



IMTULI/t Ci;uNT[-<S fiND fL^GS TO 



1000 



101' 



lOl*. 



1 



10?0 



1100 



101 '> 



103" 



10<»n 
20 

110'5 

1 10 



£<? FLAT, = 
L I N t S * ^ ^ 



=>* ♦ 



Hf.An TITLL.kUM OtSC-^ If*T IQN 



^£.\3 (rJ , lOOClT! TLt 
CALL HCAOf^(l) 



■if: ty'n P , 1 

IF ( INKFP 
FO^ lAT ( 1 

nn 

RATf = -'AT 

Fno-iAT( 1 
yp AOf t , 1 
^ <r fl ( ^ , I 

R E A n ( r , 

ic (LTOLF 
IF (LCftPr 

Rrfl:^(» , L 

■sIN LF^L NJ 

^(^^PL = LNJ 

•"^ I T^ ( w 
( T'lUTsio 
I = I , 'j ) . 

( f I n ( (J H 
F on«4 r ( 

"ALLT^EO 
" IN THE 
'tfl f /T in, 

■•■■JUTOJT 
^AP/Tl C, 
IF ( I M -? f- 
(^ l""^ T < 
"TGTAL L 
"CAPITAL 
LlNt"S=L I 
IF (LINT 
IP ilHm 
4JITF (N 
F ] P »- A T ( 
Oct ZO J- 
w-> ITF ( w 
FT-iiAT ( 
C'TNTI NUf 



10) ^UMht GtKU(NtNn,'Jiirf ,lMi<f. P,UuTr<LP,TH!?ITr,ri^t- Ilt ,LA^^JCD 
in,?,b(^x, I I) ) 

iJ-KUNriEG* i 

0)wkJTt:(^il01't)-<UN4r'j,><UNLNU*><UNYRS.P. ATt 
ST^OY PtKlK) ", 1 <»,"-", I '.,"(", I ^," YfyiPSI" 
OliCOUNT xATF !S 'NF-j.^," /. " > 



I->,f^ 
UNtlJ 
.GT. 

OX," 
X, " 
t /lO 

1 5) 

f?'" ) 

0/>0) 

1100 
f 10. 
L .E- 
L . f '; 

i ) 

"'L F 

rtPL 
,10 1 
(iiUT 

/// T 
"/T ^ 

" T J .'. 

s r u ■) 

•'L iM 

p. :t 
// *" 

A >i C F 

S.GT 

P.Lc 

1 10^ 
/ / 1 

i , ^'^ 
. 1 I C' 
lOX, 



NUMvFC , NurSiJ. C , numT'^i^ ,NLirPLT,NUfiLFL»NI''^S'C 

iMUf^i-^KT 

) LTuLFLiLCAPTl 

0) 

.OJ LC*** TL ='*4V'y'-y9V^>'* 
lNU"\T'<,LN'J«0L,LNIJ^'LF 



"j ) r- ij n 

V t P * .1 + 

FL 1 NNL 

*^♦l ) , 

^■ii"GI 
■^."LOC 
"// Ti J 

,\ S F r K 

1,' I" - " 

LiF U.Lb 
. t' I H •V, 
,"L Inl 
ILL InG 
ENOlTu 
.N .* L ^ "V C 
• Llr^Pi 
.o.;i'< . 

0) 

« , " k t s 

cSk'J 
SI J,N 



T I N ^ r t' ( 1 N < - p » 'i + i ) ,1=1,*,) , W'j r" T I- F , rj N T -J , 

I , J J ,hu!^hlT ,NNPL , ( nlf cs ( L ANLiC':*'5* n , 

T ( T « '-: 1 T r- « ^ + I ) , I ^ 1 t ^ ) , 
) 



SkC, ( 
1 ) , [ 
F , (t-I 
I = I , <: 

Vfc N -J 

ftTION 

■> T A, r I 

. lAa/ 
",T^ > 
1 TF ( 
TS U^ 



G. AN'J. iNki- f'.GT.J I CALL ME-AOtE'f!) 

■^ »^ r s •^. c . t, . ) G ! r i: 110 

LiM'^'<T{ J I 
It.) 




ooOi^'t'too 

uCO<>'ibOO 
OU02'(t>UO 
U00<^^ 700 

000^'taoo 

CiOO<^'»'-*00 

ooOi?->ooa 

000^^100 
OOOi^ t>i!0O 

000^ ti'lOu 
G00<^'3^00 

000i^'>700 
UOO^tidOO 

CuOt; 'j->oo 

COO^bOOO 
000(^6 lUO 
UOOi^o^OU 
^)00^t>J0O 

ooo^D'tOo, 

UOUZbbOO 
000<^67(jO 

aoo^f.ooo 

000^6>VOu 

00u270OO 
OUOi'7 iuO 
iJ0u2?20O 
U002 7300 
UdOii 7 ^ J U 
00^ 7 boo 
OOu^ 7 6 00 
\J0V^ 7 fOO 
00^7 :JJU 
■J0027900 
OOOioOCO 
■J00 2t5 luO 
00 0.^ t3<f 00 
OOUiT M Jiju 
UUUi' n't 00 

uQo^-i :?oo 

0.' ts 7 00 
uUO<.'adOO 
0002 d -^uij 
00 0^ vQuu 
00^4 100 
UO02'/20O 
OuO<"/ JJO 
000 2 V '♦"JC 
OUO 2^*5 00 
000^^/bOO 
uO 02 * 7 00 
OOOi^'vaQQ 
0a02'*900 
i Ou 



c 
c 



11^0 FT J«S,T(^(/'<, 4(i,F '3. J n 

IF ( I^l^<^■^>.f^J.O) C'} TO l.d!(i 

L I •« ^" S =■ L I N [■ >! t 7 ♦ NU -1 V c. C 

IF (L IN£S.;;T.L INH6G I CALL ht.'Of^(i) 

11X0 F"if'"'. T ( //lOif ,"Vf H IClS" 'JAT A"// i'i< ."Vt mICLE'S 7/ ,"^'A!-<[", 
1 iZn,"Z"<,\ Pfr' TiiNr-ic"/ L^X .••NJr,>i^>''*,<?<.x,"Pt K rtOU»* *"/) 
DT 117 I =l,N'j.-'/t Z 
117 ^i^lTf (-,li'.OI I ,vt: CNA-K 1 ) tCJ'iTTHl 1 ) 



1?0 



*f TURN 

FMn 



OOU j(j 100 
UOOi'J^OO 
00 JO J 00 
000 iC^OO 
OUU JOliOO 
00030600 
000 30 f\JO 
OOOJO-iOO 
000 JOVOO 
000 il 007 
000 J 1 100 
00 3 woo 
OOOJi 300 
OuC31<iOO 
OCO jl^OO 
OOu 31600 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 

c 



c 
c 
c 

c 
c 
c 



c 
c 



* THIS "JtJTlNc k«;ajS In GE rttV.A T [ON DATA AnT CALCULATtS * 

* Ti'TAL t^A'iU OhNtKATEu *T f. 4CH SUUt^CE HVtR T>'(f Pf>,IijD * 

* * 

*»* INITIAL (Jfc CL ft.>? AT I JN UF L V4-<[AbLt'j AS kE^L 

IMPLICIT ^cflL(L) 

»•* Qt CL 41' AT I U.S CiP ¥A»IA-)LES F !J>* NAflLi AM) 

TITLES 
«EflL 4STi;St< 

Rr«L TITLE,fUNNA,^,VECNAr(,'i^CNA-'^,r'<FNAr,PLTNA1, 
1 LFL^A.I ,>■■ SCNA~1, IK rsA'i 

InTECFK K-',w,r,(j,L[Nt:S 

INTTOf-^ TUTt-i'P.t-FLACKUNYKS. 
1 -<UNBt Ck-JNt r^J , iNkt P ,()UT>^t e , T "t- 1 TE tUHR I Tt ,LAM.)Cu , 

M SKCIDN.T-VFlJNit^LTICN.LFLlbNirKTICN, 

3 ■JPIGIu,fJLSTIJ,TKSTAT,H'LST£r,LfSTATiSTATj 

*»* GFMfKAL CUinU-N l^LJCr< 

CO-ilOi^i/GhNDAT/AS ]■■< Ss. ( 1 J J 1 T 1 TlE I 'j) fVUHNAr-, ( ^ ) , 

1 LT(JLr L iLNijnTK .L^■i^Jrt^'L .LNUnLF iLCAfTL,-ATt, 

2 K,w,r,J,T')TttN'<TF^FLAbnJAT, 

3 K UN b (■ G 1 -i iJ H t W i) t »< Un Y « S » I N -^ t f' . :J U r K 6 P 1 T rt k 1 T t , ij M K I T E » 
% LANC(;o,NU'iVtLiNVJ;Ti^CiriUrT'^F,NUnfLT»NUrLfL»N-LS'<Li 
*, i^tUII.IK T ( ^n iNPAGt ,Ll ^PAG 

*•* SuUKCfS CUniC' HL')C«. 

C^''f^^^/S*^LDAT/ ^^C.NA-ti' JO ) ,S^'CT;JI (^UO » . ALHAST , SPC inN(<:'(;OI 



nirf^isiJN lY-fc*! , ArtnuNTi '«) .t-jny-' c j , pupy-^i 'ii tNT( '> j 

01 cFMS IJN I TYPF (?00 J , I Yr^ 11 't,^0''ii lAr J( ',,ifQO ) ,NEN3(?0(i) 

DI '-fNSI'lN Tony il^w'nO) , o^PY j{ in^O.J) ,anL;NT 1( ^00) ,C''UhTH( 200 ) 

I f" ^'N S I n N r C N Y K 1. ( i.' J , T i) .N G -^ I ! ( <* i , POP Y k i ( x^ » . P OP c t- r ( ? > 



c 
c 
c 



I F ( iN^rp .cr . n) CALL HEADE'^t^l 

A L F* ."^ S T = i,> 
L I N r S = 1 '^ 

'jn *> < = !,•> 

on 2n<'' J = 1 , Nu-i-c 

?eAO T»-i' HATf. IN tNO STDKt, FiJ^ ALL TYP^S 



U003i ?00 

00031 rioa 

000 i 1900 
0003^000 
000 3^100 
UOO i^ doli 
000 Ji! 300 

ooo3^^oo 

0003^*300 
0003^600 
0003^ 700 
0003^*^00 
0003^-*uu 
00033000 
00O33 100 
00033^00 
00033300 
O0 3 3'»00 
000 3 3^00 
000 J3oOO 
0003 3 700 
000 3 3tiOO 
00 3 i'ixJU 
U 3 -4 00 
000 3 '♦100 
O0u3't^00 
00 3't 3 00 
OOo 3't'f OO 
Q003'*t)00 
0003*1600 
00 J *» ?U0 
000 3'tbOu 
000 3*t-<0u 
000 J'3O00 
000 3t) 100 
03^(^00 
000 3t) 300 
00035*100 
000 3 ■> 500 
000 Jb^OO 
000 J r> 700 
00O35d00 
00035^00 
OOu 36000 
000 36 100 
00030^00 
00 36 300 
00 3t^00 
000 35 5 00 

oooibboo 

000 36 7 00 
000 3fcdOO 
000 36'>OQ 
0u03/0o0 
000 3 7 100 
00037^00 
000 3 7 300 



r 
c 



I T VP'-( J) ^luTNTP 

IF (IGf;NTP.Lf .O.iJr . ir.tiMrt^.GT .5) 'i'J T (J i. vJ I 

If ( iGENrh',M[ .1) gl; r^i 1^0 
NT ( n =NT( i J ♦ 1 

^n^o FfiPMAT ( ! 3, ?X , ^' 10. n ) 

I c < lONUf^, .NT . SkC KiN( J ) ) GO TIJ lf:£ 

S'^CT')T(J)= IA",JnT 

ALwA"iT - ALi-AST ♦ TAM'JNT 

cn TO ^^o 



L?0 



If^ ( IGF-NTt'.^i- . /) GU T') 1 JO 



: TYPF ,> 

NT(,>MNT(<^>*1 

^O'iO '■"iv-AT ( I :i, ?' .t lu.iiiF ^J.^ t 

IM D'^bii.Ni- . S^■l: IDN( J n GO TO l')^ 

• <.-)rM su" G^^^'■AT1^J^^ tjvf-' wngLt PtrKluD 

G? -ju = i »-G-iTHTn( J ) / LJO. 

YSTPT = ir')r, TllJ) 
S-<CT:1T(J) = Y'CTOT 
:iO D I^ltNYt'S 
Yt^TUT = Y>^TPT*b'jH 
1T> SKCTDT(J) = S'^GTUT ( J ) ♦Y-<T:jr 



ALV"AST =AL-AST t S ■< C T H T ( J 1 

GH T'] ZOO 

IF ( IG- NrP.Nf . n G:j Ti) 1 'i 



110 

: T Y D r < 

NT ( U=NT I J) ♦ 1 

■(fAC ('^,^'0•■.0^ U)NU,1ri,NLiMJ<J),(jYH;3(I,JJ,Al3([,J),I = l,*tJ 
^ n^o n w, ,«A T ( I 3 , ') X , I 1 , *. ( 1 >> , f i . u ) ) 

If 1 r)NGl'^;l.NF . SkCI ilN( J M Gn TJ 11)? 
I F f I Y ." J < 1 , J ) . N F . i< U N d t" G ) GO T G 1 'J J 

I"^ t IY5 M Nf. , J ) .Nl .)■ UMlNG) go TP 10<t 
GO TO ('OO 
I'.O IF ( IGf NTP.NF .^) GO TU l-^C 

TYPF <f 

NT Cf) -NT Ct J* 1 

^F A'XW t.'0-iO) iGNU.Iri, TUNYWi I J) ,TUnGRlJ< Jl ,POPYkH J ) ,PCPG^i]( J) 
?0eo F]i<*iAT(I3,7:<,F'j.3,F5.?,F10.0,F'j.^) 
IF ( IONUnr«.Nf .Sn:CILlN( J) ) GO T{i lOI 



00037'tOO 

000 j/')00 

0003/000 

000 J/ 700 

00037300 
000 J 7 =* 00 
000 Jo 000 
OOOiolOO 
OOOio^uO 
O'JU JJ 300 
0003d<»00 
000 J B*; 00 
00 Jd 600 
UGO J^ 7uO 
000 Ja400 
00O3b90O 
OOOJ'-'OGO 
000 J^duO 

oooJ■^^oo 

000 J^>300 
000 J^tOO 
0003 *500 

000 j-ybuo 

000 3*700 

00O3'»8UO 

00 Ji»<VOO 
OOG^uOOO 
000<»OiUO 
OOO-^'ji^OO 
OOO^G 300 
OOO'tO'tOO 
OOCfObOO 
000*10600 
OUO'tO 700 
OOOAOdOO 
OOO'^O'VOO 

0001 lOOu 
QOO'fliOO 
OOU'tiilOO 
OOU'ti 300 
OOO'tl^OO 
OOO't 1-300 
OOu't 1600 
OOU'.l 700 
OOO'fl.-JOO 
OOCil-^OO 
OU0't<?000 
OOO'tc' 100 
OOkJ't^iiOO 
O00't<^300 
OOO't^'tOo 
OOO't^ "jOO 
U -1 i? b G 
OiJOt? 700 
OOu^i^ dOO 
OOO'*^ VOO 
OOO'-JOOO 



zo 



Gt<nw »( 1 . *TnNGk(l( J >/ LOO. > «(!.. ♦PJ^'Gt^ul J) / 100 J 

N/^s » i^uNri-s-i 

SRCTTT ( J )=Y^Tt:T 

no ?o i»i,NY>;s 

YRTOT = Yy'TUT v gkOh 
Si^CTClTiJ) = SWCTiJT(Jt t YPTijT 

ALKAST = AL-tAST +Sf^crjr(j; 



«« ^ 



LAST GENt-vATIIiH TYff. CONiIDL-Kl-0 - U. TYPf S 



R r A 0( a . ■> 0'» 1 ) IJ.MJ- ;1 , 1^; iN i ( J » , 1 I Y « ■! ( I t J ) I T oN Y J t I , J ) 
L P ]PY3( I , J) , I ^l,'.) 

iF(ri)Nuir<.N;.S'<ciUN(jn gj ru in^^ 

IF ( ivij U li J) .Nt .f-UNhf-GI Gi Tt.' lOj 
NF =N(-s M J) 

IF ( lYt; :n i^K » J I .Nt .ftUNt isD » Gi; lu i"i'» 

CO TO ^00 

: *** P-lr'O- CALLS 

101 CALL ".^'i'is.id'.Jl) 

Gil TL] PO''^ 
10? CALL r ^.JG*^ ( ?li' J 

GT TG ^1^0 
101 C ALL £'<-''N' (<??3 ) 

G.i TO ?on 

10*. CALL E ■'-^(Jr' (<^i;^> 
2 00 CO^tTlNUL' 

wmiE THr <tS'JLTS (-iJ-< ALL TYPtS 



PQIM THf Kf^ULTS ?■-.''< T TYt't i IK Tm^ 



A K L ANY 



IF (NT ( I I .^^ J.O.LJK. iNi^tP .L-U.O) GO TQ -'JCJ 

I 1 = 1 

'^■■? I TF (*. ,?110J 11 

2110 cntj'^aT ( /i*i "SiiiMCt S - oat;^ ty*'':",i/i 

■i w ! T ' 11 .ZOd'^n 

^ii*) h"n = '^?. T t / iiC'SuuKCt s - vjATA r^iJt",U'," i cuntinufd j ") 

?0?Q CQJ-ftT (/T<.M,"TOTal" .Tl.^l ,"T.'jT AL'VTll ,"SOUt^CE",T? },"HAST£** , 

1 T12i,"HASTt:"/Ti,"LflyLL".Tl^,"NA.-E",T^3,"TJfMNt5",Tl?l ,"TUNN[-: S'V J 

no 210 J ^i , Nazis'-; c 

ic (I type ( J) .Nt . i J C') TG .^li"! 
IF (LI*")? S.LF .Ll'^>' AG) GJ TO 2^0 
CALL Ht ftOf J ( ^) 
w^ ITF { h,,'l 1^ ) 11 
w^ITF lw,^0?J) 
L I N F S = 1 
?2? >^-iIT£ {-t^0 3i)) S!^CI'JM(J),S-<CNA.-HJ),'>^CTL)T(jJ,S''CTf"'T(J> 



000<i JluU 
OOCJ^UO 

UOO'.3 3 00 
000't3<tOO 
00U'ii500 
OOOA3600 
00 0'. J? 00 
^ i d 00 
OOU't 3 "^00 
OOO'.'.UOO 
OOO'tt 100 
00u'.'t20u 

uuO't't Juo 

OOO't'^'tQO 
't *. ti uu 
O00't't600 
000^*1 /oo 
U U *! "t u 
OOO't'.VUO 
OOO'.^OOO 
000 '►5 100 
OOCt-j^OG 
O00'.b300 
OuO'i^'»00 

ooo'tti^oo 

UOO'.'JbGO 

000't!j 7 JU 

OOO'itiHOLl 

00u<t t)'>uO 

OOO't'jOOO 

OOU'.h 100 

U00t6200 

OUO'ttSOO 

uOO'»6'tUO 

OOCtfebOO 

OOCt^bUO 

00 O'tb Too 

UOO'tbtJuO 

QOO'tb'^ijO 

OOO^f^OuO 

000'* f 10 

000^/2 0-0 

000*./ 300 

ooo't/too 

OOO^/'juO 
OOO't/bOO 
000^7 700 
UOO** ^bOO 

00 *« /'^ao 

QOCtsOaO 
OOUSd I jO 
000^.^200 
OOO'.b Juu 
uOO'ta^UO 
OOO'taiaOO 
OOOAdbOO 
GO Co 7 00 



?0^0 



?10 



210 



L I NfS'HM S*l 

CINTINUC 

WJITF tt*,20^0> 

L I N F ■> " L I S t S ♦ ^ 

F;'»«1AT ( /IX, l^bC-" I ///3 

C ^ T 1 N U f: 



C 
C 
C 



PttiNT THF kf-SULTS FIJ-^ TyPL 2 IF ANY 

IF (NT( (^ ) .t J ..'j.ijK. iN'^tP.EU.O J GO TU 2fcO 
I 1=/ 

If (Ul'^? S.LT.LINPAG-IL) GU TO 2^0 
CALL. HF<\nfi<(2) 



LI^F5 = ]'J 
<''.0 ''•?IT,: (N,?110) 11 

LI NFS-L iNt S+7 
ZIP"! FOVnAT (/T^Af"WASTt"/T("*,"FlH;5T",rj^,"Yf AKLY'MWl ."TOTAL"/ 

I ^ L 1 ."SOU^Ct ". T^'t,"Yt ^h[" , T3i."Cr>UHT-'",T Lif I .">-AiTF"/T3,"LA^,LL", 
^ T 1 ?,"NA.-E",T^ j,"TaNNt S".T J-^,"/.*', n.:' 1,"TUNN£ i'V) 

WtflTF (W»?1^0> 

Oj ?'*'i J = l..NUilS«C 

IF ( I TYPr ( J J .Nt .^ I GO Tl) i'ib 

If (LlNf S.L r .LINPAG I G>J TU /^O 



2^0 
1 
'130 



-(t^ITF (4,;^ii^i) 11 

wmiF tw,2l20) 

LINF5= 1'"/ 



$1? CTur( J) 

a ( 1 X , I '5 , J X , A -l , 2 X . F 1 . 1 

;=L iNi's* I 



F:)P"<ft', y Lr , L . 

L I Nt;S=L iNi'S* I 
C 1 N T I N ij F 

L I NiS'L INFS*'^ 

CONTlNUt 



T L ( J J iGi^OwTi't J) , 

, f 7 . 2 , r 1 L 7 , H U . C J 



P5INT i^FSULTS FO" TYPt J IF ANY A ^ i P^.tStNT 

11 = 3 

IF (NT( 3) .EO.O) CO TO 17sj 

IC (L iNt S*-10.GT.L iNPAG.ANf). iNkrp.GT .0) GALL MtfiDFt(2J 
IF (LlNF S*10.CT .L INPAG) LlNf.^'^lO 
K=ITr. (-,2110) II 
Wf^ I TF { •*, POh n 
P0h9 F031AT ( /T121," TOTAL" /Tib* "Snu« OS "♦1X,'.( 1 't X , '* A« OUNT" , 3 x J , Ti^l, 

1 "H ASTC"/IX,"L A9FL", Tll,"NA*1f ",2X,'»( ^X , " Y t AP *% t> )f » " T PMN f S"t JX) , 

2 Tl21,"T0NNtS'V) 
LrNFS=L iNt -i* 7 

:33 IJS J = 1.NUHSS'G 
IF (ITYPt (J) .Nt ,3) GU TO 13^ 

IF <NfNJ( J).tw.2n'<LTUT(J) =(Ah3(l»JJ + AM3(2,Jn*"=uNYPS/2. 
IF(NeN3(JI.£a.3)SkCTljr(JJ = (A«3(liJt*AM3(^.J)» 
V *( IYR3(2,JJ-1YK 3(1, J) ♦!)/*.' . 

2 ♦ ( A H j ( ^ , J ) ♦ t^ j ( 3 , J ) ) *> (I YH 3 ( 3 , J ) - 1 Y fc J ( 2 , J J ♦ I ) / 2 . 

3 -A«3(2,J) 
Ic(NFNJ(J).tC.A)S«CTiT(j) = (Ar3(ltJ)+A,iji2,J)» 



OOO'.dbOO 

OOO't^OOO 
000't-*100 
0004V200 

OOO'.'IbOO 

OOO'.V 700 

ouoAV'^oo 

00 0'>'JiOO 
000^0200 
000*90300 
OUOt)0*tOO 
OOUbOtJ'JU 
OOObObUU 
UOObO 700 
OUO-jOflOO 
00 0^0 400 
OOObiOUO 
OOOillOO 
000^ 12UG 
000^3 1.300 
00'J'>l*iOO 
000^1^00 
OOOtiltUO 
000')L700 
0005ib00 
OOO^l'^OO 
000^2 000 
000^2100 
000b2200 
00G')2 JOO 
OOOt>2'iOO 
OOOI>2bOQ 
00052000 
0GO'>^70u 
000-32800 
000t>2':/00 
000^3000 
0005 3100 
OOG*? J2u0 
0005 3 300 
000'53'tUO 
000 5 35 00 
00 ^ 36 00 
00053/00 
GU053ouO 
UOO53^J00 
0005AOOO 
0005'r J.00 
0005^.^00 
0005'.30G 
GOO 5*1 't 00 



I * ( I r -; J ( ^ , J ) - 1 Y li J ( 1 , J ) ♦ 1 ) / i- . 

3 ♦(fl.1J<3,J)*6M *(-<., J))«(lY'<j('*,j)-lYt3(3tJWl)/^. 

■*i, -A1 J( <^, J|-il-J( i, J ) 

ILMftST = ALH(AST + Sf<CTJT< J) 

IP (L iNt S.L T.LInPAO.>-N. INKLP, t U.;) J Glj Tu I'^O 
CALL H t" f 1 K I ? ) 

LlNfS=10 
190 IP ( lN>;f:P.Gr.O J rtW I Tt- ( H,^0/Ot SJ'CION* J) ,SKCNAn( J) , 

I ( 1 Y .^ i ( I , J ) , A r j ( 1 , J ) , ] = 1 , *, I , 

^0 70 P0«''aT(U.['t,3X,Al,*t<',y. , I-,, ^X,t-i. :).(;, JX), 1117,1-10. ^') 
Lr'MFS=L I^t S* i 
135 CHNTINUL 

WP I TS (H ,^0^0J 
L INFS-L InfrS^b 
170 CONTIMUI 



f=?I>tr TH^ rVJSULTS hH-c TYPt -i If ANY ARt H-^tSHNT 



IP (NT ( *< ) .fo .o.':'^ . iNi<t> .t u ,iH G') ru ^9t) 

I !=<» 

IF (LlMf S.L r .LINPAG-11) GO TU ? 70 
CALL MfA0fk(2l 
LI NES-10 
2 70 "^^ITF {-,^1101 II 
L INFS = LIN.' S* 7 

W:<ITF (Hi/l'.OJ 

21^,0 PHPHAT l/T^J,"HA'iTt",TW,"-iASTr",Tt-<^,"PUPULATirN",Tl^l, 
I "Tt:TAL"/T 10,"bUUkt:L",T^l,"F I.'ST YL A*- ",Tj 7,"CkOWTH",T','*, 
? "^GPULAT IDN", Th4,"Ci<L]HTH", I U' ^''-^ASTt"/ lX,"LAHrL", Til, 
3 "NAr?" ,T^Q,"TnNNt S/CAH 1 TA" ,T3^,"/. t' f -< Y t A ^ ■' , T'. ( , "c I i. ^ T ' 
A TS^*"'; Pfw Yt A"", T 1^ I ," TiJNNr S"/ ) 

,:)G i'-iO J^l,NU.i^(^C 

IF ( ITYPt ( J ) .r.t .t) ',Q TO ?-,0 

IF (L iNt 'i.L T.LINPAG > GJ T IJ ?V0 

CALL »<'PflOi-^^» 

JSITt^ (W,^ll-j) 11 

•h^ itf: ( w,tM'.i)> 
L I Ni:s = i'> 

2'iO w^lT'^ (-'t^lSOj ^KC IL)N{ J ) ,b-'CNA.^( J) ,TUNYKi ( J > , Tf^NCi.K J) , 

1 3 n t' Y^M ( J ) , p p K ■ ) ( J < , s -^ c T in ( J ) 

2 1'jn Fria.iAT { 1* , I *,, iX ,A 1,F I,' . i,F l^.^.F U. .O.Fi'J.^t T 11 7,f lu . J 
L IMCS=LIN1;S'-1 
280 C'lNTlMUt: 

L I NtS-LlMi: S*"? 
^'I^ C'lNTlNUF 



ft« 



c 
c 
c 



PkiNT i^rSULTS t-}'i TYPt -J IF Tut-'^t AKfc AMY 



11=5 

IF (NTCij.tC.r') 

IP (LlNtS*lO.GT 



C G TO 1 H 

L INP AG. AND. iNt-'f P.GT .0 ) 



CALL HtADFff(?) 



IF (L I Nt' S* 10 .GT.L 1 NH AG) LiNfS=l>> 



OOOb^t^OO 


uUO^'ioUO 


GOO^'i 700 


OOO-j^ttOO 


OUO'J'.^OO 


OUOtJtjOUO 


GOubblOO 


O00'>')<?00 


OOOtJtjJOO 


OOO'j'j'tUO 


ooob'j t>ou 


UOObbbOO 


0U0'j'>700 


OUJb'jrfOO 


'J00ti->'J0U 


OGO-JtiGUO 


00 -J t) 100 


OOO^tji^OO 


00 b'; 300 


1) 6 *» 00 


0U0t)6500 


000^t)6G0 


OOObb/OO 


OGOtJfcdOO 


000!>t)'VOU 


000^7000 


OoQt)71u3 


OOOt) 7^00 


000^/300 


000^7<t00 


OuO ^7^uO 


O0Qb7bO0 


UQ0t)7 7OO 


ooot)7aoo 


UOO!>7yOO 


OuOtJCJOOO 


00051100 


00Ot<d^Uu 


00 5. -J 3 CO 


OOObtt^UO 


uoo^b'joo 


00 05 8bu0 


UOO-j-; 700 


OOO'JtidOO 


JOCjiS^OO 


00 5 yooo 


0005'^ iUG 


OQ05'>^00 


0005V 300 


0005>^UO 


00 5^5 0u 


uuo5yt)00 


0005<y700 


00054HO& 


00 5V 4 00 


OOOfjOOOO 


0u06u 100 



?n'}? 



160 



I 
Z 

1 
2 
3 

4 



wp ite: (- ♦,'09? I 

LINFS='L [NFS» / 
FORMAT (/rM»"l",'. 

'.c 1 rxi'-t^i ><", ix,"i" 

'♦I frX."P:)PULi-".3x, 
"LARFL", n 1 ,'*NAi-c" 
IK,"I" I . Tlr'l ,"TUNM 

on I'.'i j = i,Nij«swc 

IF ( [TYFM J) .Nt ,t)) 

AtouNTi-*) =T(JNy:ut< 

IF (NtNit J) .f:0.^ J ^K 

I r ( N^ N u J > , F <: . 3 1 S f' 

♦ CAMiiUNT ( .' 

I F ( NE N .-? ( J ) . F -J . -» » S K 



♦ ( AnUUNT ( 



( l6/t"-<ASri ",/X,"I"l/Tl-J,"I", 

) , ri2 1,"TJTAL'VTlC,'">L)JRCE",TlH,"I", 

"CAPITA"»ix,"I") *T i.Zii"WASTE"/lX, 

t b"/TlH,"^'S'.(^lA."^ "J » 

CO rn i<»s 



, J>*KOPY Jl K , J I 

CTnT(il'(Ahi!UNT( 1 )*ArtUUNT(^) >*-^UNYRS/<^. 

CTOr ( J ) = ( Af-i'^JNT ( 1 WAnUUNT (^ n 

) tAnDUNT ( n ) » t I Yk J( 3, J) -I YK i( ? , J ) + l >/^. 

t rurt J ) = ( A'"L;u^^r( i)»Anu'jNT(^n 

'i't lifkJ(i',JJ-[Yl<J(l,JMl)/^. 

^ J ♦AiuuNTj n )*( I Y^ j( J, J »-iy><T(? , J) ♦ II z-'. 

S \ ♦ArtQUNrCt l)*(lY('3(<.,J)-lYk3(3,J)»lJ/(', 

-amgunk^ j-A.inuNr ( 3) 



IF ILlNt S.LT.LINPAG 

CALL H F A ■) "^ i^■ ( ? ) 

wi?ITr (K,?0'>?) 
L [NFS=^ 1'^ 
300 [F ( iN^i- P.GT .Oil. I Tt 



( 



?r)q^ f n-"'M( U , I *• , 4X ,Ari 

L iNfS'L r^t s*i 

l*."? LlNTlNUE 

w R I r F ( « , ? ^ » 

IrtO IF (LIMF SO.OT.LlNP 
-t-'l Tt"(w,/in'J>f,U"AST 

2 " yiTA^ kastf fok 
I js ("-'* ) , r iii' .1' IS. L 

PFTUJN 

FiMD 



T( J J 

• LIR. tN«FP.F L'.0> ClJ rU lUO 



( rt t ^ <• J ) S K C PJ N ( J ) , S K C N A "\ I J ) , 

lYhtU 1 .J) .PLPYJlI ,J».TJNY.*< I.JI ,1 = 1 ,t) 

tS-'CTUK J) 
, U , " 1" , *♦ I 1 X , I '♦ , F ^y . ') , f / . ^^ , <^ X , " r '• ) , 



A0> CALL H£AOtK(Z) 



TtU A-^IA ANJ FOk ThL hmOLE PFPtia^, TONNLS-", 

I 



OOObO^OO 

uooboaoo 

0006U'*00 

UOOti'JbOO 
00Ufct)700 
OUOhC dOO 
OOObO '^OU 
OOUblOOU 

Qoueii 100 

OOOfjl jlOO 
OOObl'tOO 
O0 0r>l:)00 
OUUbl'jOO 
OOOM 7U0 
OOOblrtOO 

OUOt,i: 000 
U0U6*' 100 

000f><^ iLiO 

uOuf)<"«UO 
OUOtj^tiOO 

ooOf)<i:hOo 
ooo^<: /yo 

00 Ob ^d 00 
00 Ob ^ '^00 
uOOb 3000 
00063100 
00 0b 3 i' 00 
OOOb3300 
QU(Jb3'tOO 
000b3'>00 
OOOf-. JbuO 
OOOt.3700 
000b joOO 
00b 3 900 
UOOb'fUOO 
OOOb^ LOO 
0006*1200 
OOOb'i JOO 
OODb't'.UO 
O00b*t!)00 



c 
c 
c 
c 
c 
c 
c 

r 

c 
c 
c 
c 

c 
c 

c 



c 

c 

c 
c 



» rupj i-tlUTINL ;rLADS IN KAw DATA FOk PlJTfiNTUL TKANSFEk * 

* STATIONS A^^,U CALCULATtS M/f.lJ A<NL) VAkIABLF COSTS AnL * 

* ilTrtfck OUANTlTiLS (^ilf< I Hi. nILPl^l^'UT » 

* nir.!N^I')NS StT fje "^axImu:^ iJf ^O TRANSFER STaTIUNS • 

* » 

♦#* INITIAL UlCL Ak ATI ON St^ L ^A^lABLtS AS VitL 

MPLICI T Wt AL(L) 

*«■* 'Jf CL Alt AT 1 ON (Jl- VAf^IArfLtS KJK NAnt S 

AN!) T I TLf S 
REAL ASri<SK 

■ir^L TITLt ,'-(UNNAn,VFC'SA."(,i-(CNAr,T»<FMA!",t'LTNA*l, 
1 LFLNAi"^,kSLNAM,1KTNA-i 

I'^TfOfi' ^ ,*«, T ,i),LlNt S 
I NT TGI- tf f NPH A r , f N-.)f K 

I N T ( G r -< T ',; T f -• ^ , t K t L A , ■< U N Y >< S , 
1 ~. U N h r G t >< UN r ND , I N « r t' * ."tU T -J t K , T .^ k I T t t a H 9 I T f , L A N C J t 

? S^ClL;N,TkFION,fLTItJN,LFLlDNihKTlUN, 

1 OJlGID,UrSTIi),Ti<SfAT.PLSTAT,LFSTAT,STATJ 

o*« CNC^AL GJ^fif'jM ^'LUC'^ 

COh-'IN/GfhuA r/AS[KSK( LM , [ITLt (')),«UNNAri(o) . 

i- LTGLHL,LNU''T'J,LNi;i1t'L,LNUMLr,LCAPTL,'-:/. Tft 

^ "^ ,« 1 T ,■'), fillf wv ,< -:f-L AG,|JAT« 

I ^UNtW G.KUNfc N;),KurUMS t iNKLt' .dUf KlP , T-w 1 It ,iJWK 1 It , 

h LANUC'J ,"(;MVi CtNUnbKC .NUfi TkF , NUrtt'LT .NljMf L *Wf, t SKC t 

^ NUIIIK T ( 'M .Nt' AGf tL iNf AC 



**• T^/^^^-5(-i.,^ 'iTATIilH^ Cil.'t'illN ■<L)CK 

Lr).-^'■1N/T'^'F.UT/T-^NA^ ( ira> ,1 -!!- LLT ( <") ) .T-'.FULT (2 1 , 
1 T*f TCP ( /O ) , T'<t VCt' < ,' J I .Tr-.J-t-Of^ ( ^0 » , T^'f VUt' (^0) , 

? TtJF IJNl^O > , Tu W A r ( ^'J) 



D! ^FMS l!!N IY>; ( .'(;,t), 3) iL'^PPAYUM.. , b, il ,THVUC?Oit>) , !Wf Y (,->C-J 

a Mf NS ION Cv)sTC«^ooJ»coo(-5».rM..t'5»,t-c</o,<::)i*/C(?Oti'»,''S<^ow) 



D I -I r N S I N T H K u i1 ( ,' , •) ) , C ) S T ') t 



•) ) ,Nt>F ( /O ) ,nC,PF ( ?0) tNYt 1 U , ALU(3 » 



1 IF NS I ON t NOf'AY ( ^0, ■> ) t A-IT ►' AY ( i'9i ■?) , NL J r 1^.(^0 ) ,NT¥f S ( ? ( 
I HFNS IMN T^FlU .''J ) , T-fFUL \ dO) 



sfftL STAlLiS( n.CAPHAY(?),HL.N(-,STA 

DATA S TATl (W'NilT UStD'S" USM) ",' 

DATA CAi^HA Y/'-A.'nUKT I /c 'S-'LUHP PAY"/ 

DATA NriYfS/"N':; ","YtS "/tUL/" 

C JNT iNllt 



MODtL "/ 



"/ 



Gi006<t6U0 
000b<t /GO 

0006*1900 
000650UO 
OOObb luO 
O0Ut)^2uO 
0006t)JOO 
OOOfa'j'fOO 
OOUb'j'JOO 
OOOb^bOO 
Q00t)^700 
000bt)80O 
uOuti t)9Q0 
0006(3000 
OOObfiLQO 

vjoa6b<fOO 

OOObt. JOO 
OOObt.'tOu 
OOOhb'iOO 

OaObb i •ji) 
OOObbHUO 
00066400 
000 6 7 000 
OOOb/lOO 
UOOb/ZOO 
000b7i00 
0006/^00 
0006^t>00 
OOUti7bU0 
OOOfj? 7 00 
OOOfj/tiOO 
OUQb7>00 
OOObrtOOO 
U006rti00 
OOObct^'JO 
U 6 d 3 
OOUf>«<iOO 
0006 5^00 
OOObifcOO 
O^JU(; -j /Ou 
6 H b u J 
OOObo'^OU 
000b^>000 
0006'7IOQ 
b ^' ^ 00 
u b 9 3 U 
OOObM'tUG 
b 'J '> 
OOOb'^b'JO 
U00b4 700 

ooob'>aoo 

OOOb'y^UO 

uuozuoao 

Ou0 7UlOO 
00U7u^uo 



I WAYO'O 



J = l ,NUriT«F 
iJOObJ TKFIONlJ),T.Jt'NA,''<J»,rHbTiT(J),TK(-LL(JJ,TAfUL(J(, 



100^ 



on ^00 

1 [ H AV ( J » ,nCPL NfiNOPE NT 

If (NCfLNT.cr, 1) iNCH = i 

jc ( NTPFNT .cr . 1» lNUP-1 

l(= ( HAY { J I .f 2.0) I-<AY0^1 

I f^ ( 1 1-* .* Y ( J I . f J . 1 ) I >* A Y 1 = I 

nCT ( J ) =nCP^ M 

N n P £ ( J » = N Pf N T 

FD^fiK I KAb,j;<,ll,5X,^FlO.O,J('.x,ilM 

IK( T-!STM(J).LT.O.l]k.T'^STAr(J).Gr..M CALL 

STAT J = THSTfillJ) 
IF ( T-^FLLC J t .GT.Tkf- UL ( JM CALL LkKU'^tJU^J 



V** i'PAO 4Nr CALCULATF CAPITAL ^NTkIES f JH ALL SIZfS 

*«* Of Tt-ANSfia statioms 



Et'rtOKl 301 J 



03 
If I 

R FA 

3n20 FiW 

IF( 

NY^ 
CllS 

on 

IVR 
LHP 
G ) 

I L- 

F i)R 

IF( 

COS 

NL 

DO 

C'1 

1 eu 

C '"! [,] 
THi! 
CTH 
CAL 
FC ( 
VC t 



>/,S 



10^ 



3 "in 



07 



09 



10 



110 K 
IWAY( 

■M^, i 
^AT< I 
If)NU.1 

TC( J, 
24*> I 

( J,K , 

PAY ( J 

TO 10 
iH«<, 3 

PPAY( 
(1AT( ] 
[ OM U '^ 
TC< J, 
P'NLU 

n? 

STCf J 

N r^F G > 
(K) -C 
(K) = T 

L kiEC 

j,n - 

J a ) = 
j,i) =■ 



= liNCPt-NT 

J > ,Nt ,0)G(J TO 10'5 

i')2CM!)NUn, THf^U{ J,<) f t. Nl;PAY( J ,-< ) ,AMTPA Y« J,K ) 

J , 7 X , F 1 . , fc X , I ^ , F 1 . ) 

.NF . T^F IDNt J) > CALL E R kU'' ( H. I » 

PAY* J ,-< l-'^UNtlCG 

K^ = A»•T^'AY(J,|<)•(l.♦uSP'^^(^ATL,NYr<5>)^ 

= 1,3 
I) -0 

,K , I > =0. 
t 

tT30) 1 LlNUn,NLU"lf (JJ,Tff-cU(J,<l,(lYH(J,K,l>, 
J . - , I ) , J * 1 , J ) 

"i , h X , I 1 , F 1 U . , 3 ( fi X , I "i , F 1 . 1) 
.NF . T^'FIUNI J) ) CALL t«t<OK(JlU 
K J =0 
-1 P ( J ) 
I = 1,NlP 
,K)=C']*>rClJ,K»*L'1PPAY(J,t',n/ll.»KATfcJ*«(IY^{J,K,I) 

IISTC ( J.K ) 



c 
c 
c 



W!:S<NCPtNT,TH^,C'JU,FCflP,Vi;At>,WSOCAP) 

FCA*' 

VCAf 

K S C A ^' 

CUNVtKT FOR tNTi^Y TO .tlLP 



T-^FFCPIJ )=FCAP 

Jlif VCPI J>=VCAP/ifUNYKS 



*♦* 



MC^ .'JPEKATINO COSTS 



O007U iUO 
0007^00 
0007ubOO 
0y070600 

00070 700 
000 70000 
Goo 70-^00 
00071000 
000 7 1 100 
000 7 1^00 
000/1300 

Oou7l^00 
0OO7if)00 
00071 70Q 

00071 tJOO 
00071>)00 
0007^000 
000/<f 100 
000 /^ ^fOO 
00o7^ 300 
0007^<»00 
0007^^00 
007^600 
000 7^ 700 
000 U6Q0 
0007^900 
000 7 jOOO 
0007 3100 

oou7J^oo 

000 73300 
000 7 3*100 
000 7 it>00 
00073600 
000 73 700 
000 73»00 
000 7 3'VOO 
OOO/'fOOO 
000/4 100 

ooo7'»^oo 

0007<t30o 
0007** 'tOO 
000 7-^^00 
00O7'tb0O 
OOO/'t 7O0 
0007^d00 
000 7fJOO 
D007'5OO0 
OOO/'jiOO 
OOO/'^i^OO 
00 /b 3 00 
UOO/b'.OO 
0007^100 
QOG7b600 
O007b700 

ooo/baoo 

000 ,'>^00 



30A0 
210 



^10 ■<.=- L,^n°i-*i 

RPftDf.^ ,3 CO) IDNUi-i, TH*^UQ( J,K I ,Ci:S fUJ J iK ) 

COG (K)=COSTO( J,K I 
F OrtfATC U, 7*,IF 10.0 I 

IF ( lOMUM.Ni. TKf IDN( J) ) CALL FRfeOwCJllI 
CONTINUt 

CALL Rf G-<rs( Ni.;Pt NT t rHK,c(;n,M)PCi ^ jKC.^Sujt^) 

f C ( J ,?»=(- P c 

VC(Ji2)=VUPC 



c 
c 
c 



«» « 



CONVFi^T TU FIGU'-^LS T'l tNT::^ 'ilLP 



FACT()><=USPHF(h'ATr ifc-UNY-^^) 



300 

C 

C P'^ 
C 



Tt<FFOt>( J) 

Tt?F VUP ( Jl 

TRFLLTl J» 

TRP ULT( J> 

CGN T ISUf 

IF ( ["JPFP.FO.Of 



= FiJPC*F ACTUK 
'=^()PC<=FaCTl]t</i<UNy-<S 
= TrfFLL(J)«''^ONYKS 



V t r U R N 

I NT THf >JfSULTS FUk AHOKTI/tO TlvANSFEf' bTATlUhS 



IF 
CAL 
•4R I 

3 00 Fn» 
I TS 



3010 



30? S 



Tl 

Jh 
Tl 
"L 

T'> 
F f!* 
L IN 

on 

I F 
iMCP 
NOP 
ST A 
IF 
[c 
Nf "J 
F 1^^ 
Ui") 

M '1 = 
ST A 
ALL 
AUL 
TH-i 
CN^ 
A-T 

ens 

COS 
IF 



( IMA 

L rtf 

IF ( 

"AT 

t<,"A 

IP, 

9,"L 

16." 

rAST 

i,"C 

MAT 

rs=i 

( I«A 

rNT = 

FNT = 

TJ= r 

(NCP 
= -*i 
rAT 
1^0 
•^L 
= HL 
T-0. 
T=0. 
UX = 
PX='"i 
PX = 
TCy = 
ijnx = 
Tn<» 

( N.G 



YO.I Q. -) 

A 1 ^ ( n 

W, "J 00 I 
( /If ,"T 
NMUAL" , 
" A N N U A L 
A S T " , T 7 
'J P F V A T I 
",T'. 7, " 
DST, I", 

(IX) 

J= 1 , rstJM 

Y ( J » . N r 

NCPl- ( J ) 
N!)Pt. ( J ) 

^ STAT ( J 

t- ■M T . G 1 . 
t N T . <", T . 
<') ( Nt PF 

( IX, I '•I 

N= L ,Nt S 



) GO TU ibb 



KANSFtfc STATIONS WITH AhOt'TI/FiJ CAPITAL COST"// 
T /0,"A1G'<T I/ATIUN", r iO,"ANNUAL",TlO'.,"ANNUAL", 
"/T"iO,"T'-1-:nuGHPUT L I 1 1 TS , TfjNlME S" , T ^ / , "C APAC I I Y ", 
)', "ANNij 'iL" , T<^VO» "C AP I TAL", T 10^ f'^TH^nuGhPUT" , 
NG"/ IX ."L'VHFL", Tl I ,"NAMF" ,T^O,"STATKS", T:J^, 
i-i)S T",T tjy ,"TO^N(, S",Th'y,"YEAW" ,T 7b,"PA Y^t NI , l", 
T10<.,"T JNNtS", Til i,"CIjST, i"/ I 



TyF 

. 0) crj Tti 



I -JO 



i-"^iTc (w,J0 10( 
LiNt S=Llr<Fi*i 



> 

1 .\)-(. . 'vuPi:NT . L. r . 1 » 

l.lj>^ .N^Pf NT.(, T. I ) 

.N T , N iJ P F N T J 
iX,An,£?XiA'j, i/ li'F 1 ^.0,F 1'..0, JX » l^iiF l/.O, JF 1 J,U) 

J 



0.0 

0. 

0. 

T. 1) GG T(! UO 



OUO/fjOOO 
OOUftlQO 
000?6^0u 
000 7b JOO 
OOOFb-tOO 
00076^00 
000/fcbOO 
0007'j7UO 
0007t)d00 
00076*00 
000/7000 
UU07 7100 
00077^00 
000 7/300 
U007 /<iuU 
OuO/ZbOO 

ooo/7boa 

00077 /UO 

000//bOO 
000 7 7 9UQ 
OOO/dOOU 
7 a 1 
000 /o<fOU 
uOu /H iOO 
OOO/o'.oQ 
Ouu /Ob GO 
OO07bti0O 

000/e 7'jo 

U007«HOO 
OOO/o^^oO 
000 /-»00G 

000 /'yioo 

00 /■^^'OO 
00 79 J 00 
OOO/V'.OQ 
000/'^ -JOG 
000/'<600 
ijiJO?') /oo 
00 7'^tiUO 
000 74'M.)0 
OOOlOOOO 
OOOn J 1 00 
OOOoO^Oo 
OOOdOiOO 
OOOoO'tUO 
OOOdOtiuO 
OOOSOf>00 
OOOttO/OO 
00040d00 
UOODO'^00 

oooaioijo 

000 3 1 100 
000 b 1.^00 
OUOcJl JOO 
O0ot}l<»00 
OOOtiltiOO 
OOOnlbOo 



l^o 



l^n 



1^0 



I'.O 



I'JO 



c 

C P 
C F 
C 

303 

■JO » 



ALL 
AiJL 
IF 

THO 
6N0 

Arir 

ens 

IF 

THy 
ens 

H»^ I 

1 CO 
L IN 
IF 
C4L 
W^I 
L IN 
T'lN 
I F 
[•^ 
CiN 
IF 
IF 
IF 

RINT 

n« CA 

'. FG'-? 

IT"/ 

*) F')« 



Ti^FN 
= STA 

T=T8 
r=TR 
(N.G 
UX=T 

px = e 

PX=4 
TCX = 

(N.C 

UGV = 

Tnx = 

TF I 
STCX 
FS = L 
(LIN 
L HE 
Tc ( 
FS=l 
TH-J 
(NCP 
(NCP 

TlNU 
( IWfl 

( iwa 

< IWA 



6r<( J 1 

TLls(ST 
FLL ( J » 
FUL (J) 

T . N C P f 
HKU ( J , 
■H P A r ( 

CnSTC< 

T.NllP'-' 

TH'?un( 

.-, jO^'j 
, ThKuO 
( N F S ♦ I 
cS .LT. 
A :.) t k ( j 
W, JOOU 

f 

FnT.GT 
E iN T . G r 

I- 

YO.f 0, 



ATJtl » 



NT) GO TO IJ'J 

N) 

J.N) 

J,N) 

J ,.N) 

NT) GO TO I-JO 

Ji:>t ) 

J,N» 

» TKFIDN«J>iNM,ST/i,ALLrtAULr,THkUX,rNDP/,AiTPx, 

X, CUSTOM 



LlNPAG) Gf] T(] l^^n 

) 

) 



i.UK .nOPENT.G T. 1 ) 
l.HK .NUPEnT ,GT. 1 ) 

0) CALL HfaDE»^lJ) 
) L 1 N [ S = 1 .) 
0) GU TU ^}'> 



WHI If ( H, 3010) 
L I N t S -= L I N t S ♦ 1 



THF ffFSULTS E(IF 
PIT4L COSTS 



ST4TIGNS WITH LUhP PAYHLnTS 



^OAb 



?1 
?2 



"A 

"L 
"T 
■*S 

"C 
FOR 
IF 
CAL 
L IN 
Mi? I 
H4 I 
L IN 
DO 
IF 
NCP 

NOP 
STA 
I F 
IF 

NEN 

DH 

N1 = 
STA 



wflT 
J 

"AT 

NNIJA 
Ur^P 

TATU 
"YEA 

nsT, 

►-AT 
(LiN 

L HF 

T(? ( 
TF ( 
FS = L 
2 30 

FnT = 
FNT' 
TJ = T 
(NCP 
(NCP 

n=»MA 
at 



( / // I K , "Ti^ AN'iF t ^ STATUJNS hITM LUr"P PAYrlFNTS OF CAPITAL 



(/ 
L" 

PA 

GH 

S" 

i< 

i." 

( 1 

rs 

AO 



Hi 

in' t 

IN 

J = 

Y( 

NC 

H\] 

ws 

EN 
En 

xo 

N = 



/T^t. , 
yrrhT 
PUT" , 

,!?'',, 

/» 

X, I-* . 
.LT.L 
L^ ( 3) 



ANNUAL",riO'i ."ANNUAL", r 1 m," ANNUAL".T l^C, , 
"Tm:<L)UC"IPUT ,TONMt S",T'.6,"CaPACITY",T*-, ^, 
S Uf CAPITAL C0ST",Tir/3»"CAPI TAL", T! W, 
Tl^A,"UPEkAT ING"/1 x»"LAuf L",T'^,"NAhf ",T 1 ?, 

"Lt AST", TJli-'-iUS T",T'*?,"TGNN!:S",T'if;, 

f. ••) ,T10^ ,"CnS T , i",Tll'i,"TONNES",Tl<'h, 

lx,A8,lX,Ao,<?FlO.U,Ftl.O,3(lX,I'.,F10,0>,3Fll..O) 
INPAG-1^) GU TO ^l'> 



3 Q i 5 I 

FS*d 

1 ,NUMTWF 

J J .Nf . I J GU TO ^^^) 

PM J) 

PL ( J) 

TAT( J) 

T .GT .1.0 1^, NU PENT. GT. I ) 

T.GT. I.Q^.NJPlST.GT, 1 ) 

(NCPEN [ , NUPl NT) 

U ^t E M 



H^tlTE (W,J0 10» 
LlNES^tlN£S*l 



000 
QUO 
(jOU 

00 
000 
00 
000 

coo 

000 
000 
000 
000 
000 
000 
000 
00 
00 

oco 

00 
000 
000 
000 
000 
000 

ooc 

000 
000 
000 
000 
000 
CU-iOOO 
000 
000 
000 
00 

uoo 

ooo 

00 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
jOO 
000 
000 
000 
000 
000 
000 



ol/OO 

'^laOO 
cJl ^00 
tJ^OOO 
b^lUO 
«2^00 
b^300 

2 !> 00 
»i buO 

m 7uo 

o^ttOO 

a 2 900 
« JOOO 
«3iOO 
tiJ^OO 
tt3 300 
.b j'tOO 
a it? 00 

^53600 
a37Q0 
o3a00 
t)3 VOO 
•13'ylO 
a3'->£0 
otOOO 
b'tlOO 

b^t ^oo 

c) 'f i 00 

1't^OO 
o^*>00 

HHttOi) 

« ^ 9 00 

b'3000 
d5 LOG 

!)5 3 00 
'ib'i 00 
otJ-jOO 
o'>bOO 
bt>700 
obtiOO 

tJhOOO 
tiblOO 

6ti iQO 
46 300 
^b'^OO 
Cl6b00 
dfcbOO 
Ob 700 
Mb BOO 
Sb'->00 
17 000 
.7100 



ALLT='^. 
A'JLT=0. 
THRUX=0. 
NYE ( U»n 
N Y E ( ^ I = 
NYE ( j» =0 
A L U ( I > = . 
A L U { 2 » = . 
ALU( })=0. 

cnsTC'' = o. 

TH'<U0X = O, 
C1ST0X=U. 

IF (N.CT.ll GO TO ^')0 
N«» TRFNAn ( J ) 
STA = STATLf=(STArj*l) 
ALLT'TBFLHJ) 
AULT-T^FUL ( J I 
ZbO IF (N.GT .NCPFNTJ GO TO ibt) 
THSUX^THkUlJtNl 

DO zm 1 = 1,) 

NYE ( l) = I rK ( J,N, I ) 

Zbn ALU ( I) -LnPPAY ( J,N, I » 
?'>') C-IS TCx=CaSTC( J,N) 

IF (N, IT.NU'^tNT) GU TO dfU 

THPun<«rH3U( J ,N» 

CllSTnx=C JSTi)( j,M 
^70 W«ITF (W,10<.S> TKl-lLN(J)iNn,STA 
I 1-1,3) ,COSTCX,TH(.'U()X ,CGST{)X 
[f (LINES. LT.LlNf'AG) GU T IJ c"tO 
CALL MFADf. » ( 3) 
-JRITr (HtSOJ*.) 
W .< I T r ( w , 3 3 ^ ) 
L iNt S= If. 
?A0 nNTlNUt 

I F ( NC P L N T . G T . 1 . 
IF ( NC P c r. r . G T . I 
^30 Ci]NT!SUF 
Zib \^ ( INC p. t 1.0 

IF (LINFS.LT.LINPAG-'O 
CALL HFADt''{3 » 
L 1 N F S =" 1 
3^^ WPITF (W,3 0^ » 
3f^'Vn FTWfAT (//IXi'-TkANSffi; 
1 "L A^EL"tTl'J, "NArF",Ti',> 
Z T5H, "CAPITAL CIJST Vbr. 
3T"/ > 
L INrS = L I NFS*'' 

[111 jn j = i,NU'*T^f 

IF (LlNfS.LT.LlNPAG ) 

CALL H F A £ ■< ( 3 ) 

hRITF (h,30'jO) 

330 N'lPFNT=NiJPf. ( J ) 

NCfNT'NCPfclJ) 

IF ( NHP^NT.i 0. I . AhLi.NCPtNT . f . 1 » Gil 

IF (Ni)PtNT.fO. :» GU TO 3^0 

HVITf (H,^ObO) TkF IUN( J J , TkFNAh( J) ,f 

L INFS^Ll^tS + l 



ALLT,AULT,THkUX,(NYfc(U,ALUU», 



U^.MPt-iT.GT.U 
(1-^ .nOPENT.GT. 1) 



hXI T 
LiNt 



t (^,30101 
S = L INt S*l 



/h!J. I NCP 



GU TO 



KF TU'^N 



STATIONS - ''.t 
, " I N T L « L '- P r " , 

CAP/^CITY",JX, 



J TO J JU 



^sULTb UF KtGRf SSinN'V/tX, 

TJ7,"Slupe",T'.h,"(;suuak£", 

" u p e k a ti ij n a l cost 



00«7?Q0 
00067 JOO 
000c*7'i00 

00067t>00 
QOOd /bOO 
000d7 fO^i 

ooocj/aoo 

O0OtJ79O0 
000^)a OiJu 
OOObBlOO 

oooda^uo 

OOOdtt JOO 
OUOBd^Ou 
OOOoBbOO 

OOOoHbOii 

ooobo 700 

OOOboaOO 
000^«<-*00 
OOOdfJOOO 
OQO.'J'UOO 
OOOfJ'y^uO 
00 0(1'^ 3 00 
OOOrt'/'tOO 
00 Go 'J 100 
UOOa^fiOu 
0UGo^7U0 
OOOo'VhUO 
00 Oo '19 00 
00090000 
00090 LOG 
00090200 
U0090 JOO 

ooo9o<tao 
000905OO 

00 09 0tj'jO 
00 09 /OO 

00090300 
0009U900 

ouo nooo 

0009 1100 
00091(?00 
0091 100 
OOO'/liOO 
OOO-^l'sOO 



10 310 



C(J,<:;).*'CIJ,?»,'-S(J.^) 



vs. TMKQUGhPJ00 09l60G 
000 *l 70Q 

O009iaoo 

0U09L9O0 
00092000 
00O-*2 100 
00092200 
00092 JOO 
00092't jO 
0092 -500 
00092 hOO 
00u92 700 
00092 rtuO 



3 06 fnWi"*! ( 1 X , 1 'utA , Ai ,t- I'd. L,f 1 J. ''.I- 1 ). 1. Thri, "X"» 
^,?0 IF t NCF>- NT . : :. 1 J '^J T ■) JU) 

W-! I T"^ ( H, 10?0) Tk^' IDN( J) .Tt'^NAfl J) ,(- C( J » I ) , VC( J* 1 ) ,K ^( J, !.) 
10 70 FOvri.', T ( 1 X , I 't , / X , A h , h I ^7 , I , f- I ) . •> , »■ 1 ") . J , T '/i-. i " ^" » 
L tN' S = L iNt S» 1 
TIO C'l'^^TlNUt 
5 F T LJ "^ ^ 



UOUV _4000 

ooo'rjioo 

UuOV J30U 
000 M'tOO 
OOU i iiijO 
(jO0'> JhdO 



c 

r 
c 
r. 

c 
c 

€ 



* FUNCTION rn cuiipuit UNif-u^'T st-it'i pkisfnt hOviH rAtTu-^ * 

IK {i.-,Nf . ')) Gl) I'J i j 

k^ r T u -^ 1^4 

TNT 



000 'M /uO 


OOO'Ortuu 


000 ^ j^ou 


OOOV'tOuO 


OUU'*<< VOU 


OOu .''I-:: JO 


QUO *^ 'JUt> 


OO'j i'^'tOo 


000 -J '.o 00 


OUU V"! 6Q0 


000 K 700 


OO'J^^'.^OO 


OOO'-M >00 


000 >5000 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



SUB POUT I N£ ^hC^fS (N,x;ir ,F , V.VSJJ 

Rt GkESSIGN FIGUkES. 



THIS KtJUTlNt" CALCULATES 

IP THEKE IS JUST ONE OUSF (< ^A T I Ors f f IS SET TO 

IF ^ IS FUUNO rtY SMPLE t{tt,KrSSlUN 

F IS SET TH Zt(?0 ANQ t EGKf S S 1 UN 

F IS INTERCEPT 

V IS SLOPE 



THIS COST. 
TO BE NEGATIVE, TritN 
FUkCtU THkGUGH (JklGiN, 



«'>««^«r^««««f^jr««««««««««««««(i«««^#4«^«4i«««««t4i(i4i^««i»^«4'4<^««'r«V«V 



^)I^^FNSI^N Ki^y), ilb) 
IFIN.GT.ll GQ TO '>0 
F-Y(l) 
V«C. 
'*SG=0. 
BE TURN 
50 CDnTINUE 
SX «Q, 

Sxx=0. 

sy-0. 
srt-o. 

SXY=0. 

00 100 J=l,N 
SX"SX*X( J) 
$XX*SXX*XI J) 'AC J) 

SY=SY*y ( J J 

SYY=SYY*Y( J) *Y( J) 
SXY-SXY + X( J) »Y( J) 
1#0 CONTINUE 

VA»Nv=SXX-SX*SX/N 

VARNY»SYY-SY*SY/N 

VAkNXY=SXY-SX*SY/N 

V« VAKNX Y/VASNX 

F« (^Y_V«^X ) /N 

tiSC»V*V*VAr(NX/VAKNY 

IF(F.0£.0.> RETURN 

V" SXY/SXX 
i*SC=V*SxY/SY Y 
R F T Ui? N 
PNC 



00095100 

OOO^b^OO 

00^*? joa 

000*>5<t00 

00 9 5 'j 00 
000^*j700 
OOO'i'JtlOO 
000^^900 
00096000 
00096100 
00096^00 
00096300 
00096^.00 
00096^00 
00096600 
00096 700 
0009680U 
00096900 
00097000 
O0O97LO0 
0009/^^00 
0009 7 JOO 

ooo-jr'too 

00097^00 
0009 7600 
0009 7 7 00 

O0097aoo 

0U097900 
O0 09aooo 

0009 8 100 

aoo9(j^oo 

U009^ iOO 
0009B<iOO 
0009>5'>00 

00 09 a 6 (ju 

0009b 700 

ooa9(i«oo 

0009d900 
000 99 000 
00099 100 
00099^00 
00099 300 
00099'»00 



c 
c 
c 
c 
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G 
G 

c 
c 
c 
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G 
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c 

c 
c 



c 
c 
c 
c 



c 
c 



SU-^.enuTlNf PLANTS 

« » 

* This -iOuTlNt lifcAUS IN kAh OATA FOk PUTtNTIAL Pt?0CrSSIhO * 

* PLftiMTS AND CALCULATES t^lXLO ANO VAKlAriLfc COSTS ANO « 

* rUHt •< 'JUANT I T I t S F'JK THf -ilLP INPUT * 

* » 

*** Initial otCLAKATijN iif" l ^A'^iaolis as whal 

I-^PLiriT ^tAL(L) 

*** DFCLAU AT iUN Q^ wAxIAHLfS H.)K NAHLS AND 

TI TLKS 
RfALASTWSK 

REAL TITLt:f''UNNAf1,VECNAM,S-<CNA.-1,T.<HsAf1,PLTNA'<, 
I LF LNAn,kSCNAr- ,ilKrNArt 

iMTfGtK (^ .H , T,D,L iNt S 
IMTtCf*^ FM)PAY,FNOPX 

INTECF-J TOTE'iF,! HFLAG,*^UNYr<S. 
1 KUMIt O.KUNtNC. INHtPi'JUTRt H, T^iKl Tt , Dio ITf ,LANUC[). 

I S'^CIDNiTt^FIDNtPLTinN.LFLKiN.nKTICN, 

3 n'tIGI!),vOESTlU,TWSTAT,PLSTATtL^STAT,STATJ 

♦ *» r.f-NF'<AL Ci]f"lLiN aLOC** 

C0^"1O^/&tN^/iT/ASTJS«<l'^),TITLt(')^,^<UN^A^('J), 

1 LTOLFL,LNUMTK,LNU^'PLtLNUhLl-,L(;APTL,«AT(, 

2 K,H tT tOtTur£»<ri tCKFLAG.UAT, 

3 PUNtjEG.«UNtNO.KUNYi<S,lNf<tP,.UJT'VtP,T»^tITF,DHKlTEt 
A LANOCD^NU-^Vt"; CNUnvKC iNUflTKF , NUflPLT ,NUnLFL iNKLSkC » 
5 NUMrtKT ( 9) ,NPACL ,L MPAG 



** ♦ 



n«lON FOP PLANTS 



COM'^nN/PLTrj/i T/PLTNAr1{i!0»,PLTLLT(^')),PLTULT(20), 

1 PLTfCP(^a(,PLTv^.p(^OltPLT^;JP(^o),PLTv^1P(^o»f 

2 PLTKEP ( 20) ,PLTKKN(^0,>^» , 

3 PLTIUNI^O I ,PLSTA r<?0> 



OlHFNSnN IYW(^0,'>f3)iL1PPAY(20,'3ti) ,THh'U(2 0» b> , IHAY(^0» 

DIltNSION CJSTCt^0,'3),C0O(^»,TH'^('>l,FC(^i),2I,vC(ZO,2),RS(?OWl 

niHf NS [UN THt<inl( JO,'?) .C'JSTiM^OOJ iNCPE <Z0) .NGPE (?01 ,NYH3I , ALUl 3) 

Ullf NS lUN t NDPAY(^0* t)) ,AmTP AY wool ,NLUnP( £0) iNClYeS (^ I 

OIMFNSIJN PLTLL(^O)»PLTUL(20»,PLTLOSt^0) 



RPAL STATLUC ^),CAPWAY(^(,dL,Nh,STA 
DATA STATL3/"NUT UStO"," UStU ",' 
TATA C APWAY/"AhOkT IZ0","LU,1P PAY"/ 
DATA '^nYES/"r^L) ","YES " / t ^L / " 

CDNTINUt 

I S C P '^ 



rfUUtiL 



000^ iitlOO 

OOluOuOO 
O0j.au 100 
ool.oo^oo 

uOlOO 300 
OOluCtOO 

00 iOOiOO 
OOlOObOO 
O0l0u?00 
OOlUOOOO 

ooiuu^^oo 

00101000 
00 101 100 
001 01 J 00 
0U1Q1300 
00101^00 
001ul'>00 
UOluihOU 
O0l</1 ?U0 
OOlOl-JOO 
OOl'Jl^OO 
OOiU^OOO 
0010-^100 

0010^; JOQ 

001UJ300 
uOlOi^'tOO 
OOiUi^bOO 
OOiOt'bOO 
OOl'J^ /oo 
0010^ ttUO 
OOlOd'^00 
00103000 
00103100 
00103^00 
00103300 
O0103'»00 

ooioibou 

00l03t)00 
00103 /oo 
001u3dOO 
0010J90U 
OOlO'iOOO 
UOIO'.IOO 

001 j'tifOO 
OGl«j'«300 
0010<i^OO 
OOlO'i'sOO 
OOlO'if>00 
OOiCi fOO 

ooio'»dOO 

0010*1900 

1 "3 00 

001 J*)100 



IWAY1=0 
QiJ 300 J = lfNUnPLT 

«EftDr8.3C0f)) PLTIDN(J)tPLTNAr(J)tPLSTAT(J),PLTLL(J)tPLTUL(J)i 
1 I HflY( J ) ,r4CotNTtNGPFNT 
3005 FORWflT( Ij,Att.JX,I l,^!(,ZF10.0,3('tX,Iin 

IP ( PLSTAT ( J J .LT.O.Ui^.PLSTAK J) .GT.<? » CALL eRRQR(AOl) 

IF ( PLTLL( J).GT.HLTUL( J) ) CALL f KStiJft ( 'tO^! ) 

IF (NCPfcNT.GT.H INCP-1 

IF {NHPENT.GT.l) INUP'i 

NCPE(JJ»NCPtNT 

MOPE! J)^NUP'-NT 

IF r r'-'AY( J) .CQ.O I»JAYO=L 

IF ( IWAY( J) .£Q. i J IhAY1=1 

STAT J^PLSfAK J ) 

: ««* READ AND CALCULATE CAPITAL ENTRIES FUk ALL PLANT Sl/fcS 

OG 110 K'UnCPE.NT 

IF t IWAY( J) .NE.OIGG TO 105 

REAn(«,3 0^0)IL)NU^,THRU(J,K)ltNDPAY(J,K),A.•tTPAY(J,K) 

3020 FO»f"AT(I j,7X,FLO.U,tiX,I't,FlO.OI 

IF< IDNUM.NE .PLTIDNIJ 1) CALL E P R(l>< ( <t 1 1 ) 

NYRS^FNDPAYtJ^SJ-kUN'itG 

COSTC(JiKj-AilTPAY(J,rt»*(l.tUSPHF(i<AU,NYKSJ) 

Oi) ;"t5 1=1.3 

lYR ( J,K, I ) -0 
2<.^ L^f PAY( JtK. 1 )=0. 

CO TO IG--^ 
lO'j e?AO(-?*303 0)IDNUf^,NLU'iP(J)tTHH(U(J»K),(lYH(i,K,l), 

I L-PPAYCJ.K.nW^l^JI 

303 Fn»MAT(I3,6X,Il,ElO.O,3<6X,U.F10.0)) 

IF ( IDNU,-i.Ni .PLTIONC J) ) CALL tKPi]R<<.nj 

COSTCC J»K (=0 

NLP*NLUnP(J) 

DO 107 I = L.NLP 
107 CnSTC(JtK)-Ci}STC(J,Kl*LHPpAY(J»'<,I»/(l 

1 - RU'^aCG) 
IfiQ CnOJKMCOSTCC J,KJ 

THR <K» = THl<Ut J i< } 
no CONTIN'JS: 

CALL SFGKFS(NCPtNT,TMfi,CfJU*FCAP,VCAP,RSQCAPJ 

FC(i,l)'FCflP 

vet J,L) =VCAP 



♦ KATE »**{ I YP ( J,K, I ) 



C 
C 
C 



c 
c 
c 



CONVERT fnk ENT-^Y TU HI LP 



PLTFCPtJ»=fCAP 

PLTVrp(j)*vCAP/'^UNYRS 



# »# 



MOW OPERATING CiJSrS 



DO 210 K^U^nOPcnT 

SEAOIf' »3 0<«0) IDNUM, THKUlH Jt*^ I tCOSm J»K ) 

TM» (K) = THivUO( J,K, ) 



0010!>^GO 
0010^300 
00105'! 00 
OOlOb^OO 
UOlG^bOO 
00105700 
00105800 
00105^00 
00106000 
00106100 
00106200 
00106300 
00106400 
00106500 
001066u0 
00106700 

ooi06aoo 

00106900 
00107000 
0010/100 
00107^00 

00107300 

1 7 -t 00 

00107500 

00107600 

00107700 

00107ttOO 

00107900 

OOlOoOOO 

00106100 

OOlOBi^OO 

00100300 

OOlOd'tOO 

0010o500 

0010a6U0 

OOlOd 700 

OOlObdOO 

OOlOJi'/uO 

00104000 

0109 100 

00109(^00 

001u9i00 

00109'tOO 

00109500 

00109600 

0010'/ 700 

00109'JOO 

00109900 

00110000 

OOllOluO 

001 lu 200 

00110 3 00 

GO 11 04 00 

0011050U 

00110600 

00110700 

1 1 8 00 



jO^tO f^O" ■■'ATI I J , 7^, ^FIO.O ) 

IF ( inNUi-.Nt.fLTllJN( JJ) CALL fRKOrJCtUJ 

CALL W^CicStNnPfNT.THk.COn.FflPCvn^CKSUUPJ 
FC ( UZ) =FUPC 
VC( J,?l ='/tJPC 

IS ( J,^) =kijijp 

i-'E4n roiioi'M I jnumiPlTlus ( J » . ( i^L rkKN( j,H» i."^ = i t'? I 

IF < [QNUCi.Nt . PLTION( J n CALL t k k iH ( 'i I 1 ) 



c 
c 
c 



»** 



CUNVt-iT TU FIGU!<'-:S T'J tNTfck tlLP 



FftCTn><«DSPHF<'<ATE,<<U'^Y«"i» 
PLTFC!P(J) 'FlJPCvr ACTU>< 

VUPC»F AC r3f</y>UHYkS 
PL TLL* J ) *SU,NYxS 
t^LrUL(J)*»UNYkS 



r 

c Pi^ 

c 



PL TVQPt J) 
PLTLLTt Jl 
PLTLLK J) 
CTMTlNUf 

If t IM^^ P.c-J.l.' ) 



INT T -it" 



k L TUkm 
SUlTS l-n.-< ArOyTI/[D PLANTS 



IF ( HAYO.f -.0} GO TU l^b 

CALL HFAOfC.) 

f P I T F < -t , i C L» ) 
3000 Fa-^^-AT (/IX, "PLANTS WITH AMU-^TI/fa CAPITAL COST"// 

L T '^ H ,"4NNUaL" ,T70. "Ail'JRT I Z AT iUN" tTK' i"ANNJAL" t T10<, , "ANNUAL"t 
2 TllH, "ANNUAL'VT JO ,"THw. JUGhPUT L I "• I T S , T UN N fc S " 1 T '^ 7 , "C A P A C 1 T Y " , 
J TS-^,"L AST", T 7 7,"J?,NNUAL" ,Tf>0,"CAP I TAL",T 10^,"TH«f!UGHPL;T" , 
'. T 1 l*)."nP?KAT ING'V L x,"LA ifL", T 1 L,"NArF ",T20,"STATUS", T J'., 
:> "LF&ST",T't7,"-L)ST",T'>H,"T0NNfS",T^'v,"YtaR",T76,"PAY>^tNr,S", 
^ T'M,"COST, i", TlO<,,"T'JNNtS",TlH,"CliST,t"/ ) 
1010 FQWfAT ( 1 K. > 

L INES-lf> 

Q'3 l'>0 J = l»NUflPLT 

IF ( !HA Y( J) .'^E .0> GO T'J 1. ') 

NCPrNT=.iCPt ( J ) 

Nnp(-NT=H]Pi I J ) 
ST4TJ=PLST*r(J) 

IF (^^CP!:NT.GT. l.UK.NUPttsT.G V, 1 ) 
IF ( NC P t N T . G T . 1 . OK . NO P F N T . G r . 1) 
NF-^I C="iflx? ( nCPKnt, (>*aPFNT ) 
^OP-^ FTOf-Ar (iX,!<t,JX,AHt^)^,A4il.X,^fW,.),rI't.O,'JX,l^,C1^.0,3f iJ.OJ 

NK = r)L 

STA-dL 
ftLLT='^." 
AUL T=n.O 
T H 9 U X * . 

ENL-)px=r< 

A '-< T P X = . 

C'')STCX = u.r 

TH^UUX=0, 

r'7ST0)( = 0. 

IF (N.GT.I) CO TO 1<;0 



-KITE (H,1UIUI 
LiNfc S = L iNEStL 



UOilO ^00 
GO 11. 10 00 
OUilllUO 
OOli WOO 
OOiil JOO 
Qulii^OO 
OOUI'jOO 
0011 1600 
OOIll 700 
OOIIIBOO 
OOlliVUO 
0011^ uou 
OOli^ 100 
0011^ ^00 
0011^300 
001l*>'^00 
OOllZ'jOO 
001U600 
0011^700 
Oull^rtOO 
0011.^ iiUO 
OOlliOOG 
OOllJiuO 
0011 J^OO 
0011 J JOO 
0011 J'.OO 
0011 J^OO 
OOii JtiUO 
00 1 i ji7 00 
0011 JfiOO 

00 11 J'VOO 
OOil^OuO 

ooii*.ijo 

OOll't^OO 
OOll'.JOO 

001 l<t^uu 
001 1'.'; 00 
Q01I't6U0 
GOli*. 700 
001 I'taOO 
0011'. -JOO 
0011^)000 
001 It 100 
OOii'j^uO 
O0ii530O 
OUllb'.OO 
Ouil')'>0u 
0011*5600 
0011'j700 
OOli ^800 
OOII-J'JOO 
001 16U00 
OOliblUO 
Oui lb<?00 
OOLlb JUO 
001 Ib'tOO 
OOilG'JOO 



izr 



no 



180 



T U 15 



li,n 



150 



N^=PLTNAin(j» 
STA«$T6TLH($TATJ+1 ) 
flLLT=PLTLL( J) 
AULT=PLTUL( J » 
IF (M.GT.NCPF nT) GG 
THeux=THt<u( J , N ) 
tNncX^FNDPAYC J ,N) 
A H T P X = A -^ T P A Y ( J , N ) 

ens TCx = r.'isTC( j,n» 

IP (N.GT.Nuf'HNT') G^J TO 180 
rM^UQi<= THKUiJt J,PU 

COS Tn>f = cijST:j( j,n) 

W»ITb (M, 30^*5) PLTILM J J ,NH ,STfl ,(,LLT,flULT, THkuX,FNDPX,AnTPX, 
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CHNTlNUt 

I f^ ( INCP .t 0,0. AND, INCP.£'J.0 ) KfruRN 

IF ILINF S.L T.LInPAG-'M GJ T'J 3 J 'J 

C4LL Ht i )f y ( i,) 

L I S f S = L 

-It; ITT (w.'iu'^O) 

f-r^-lT ( // lXt"F!-aivrS - kESULTS SF r(t_GKi 5S I ON"// IX , 
1 ■• L A ri^ L " , T 1 ■:> , " f* A M t " , T ^ ^ , " I N T t k C £ P T " , T J 7 , ■• S L U P L " , T '. H 
I T-JfU-'CAP ITAL Cl-iT VS, CAPAC ( TV, J<,"tJt^tKAT lUNAL Ct' 
3T"/ ) 

1 3 10 J=1,>U71HL1 



I3n 



IF I L I r4 =■ S . L T . ;. 

CALL M r A J I. - ( 'f ) 

^« K I r E" » H , j '^ ^ u ) 

N'T"? NT =iyllP < ( J ) 
k^CPf ^T^nCPE < J) 

IF (NCPtNT .►:u. 

IF 
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iNt'AGJ 'VJ Tr, )i'J 
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L l^t S = L1nES*1 

tT^ r-AT ( IX, I'., ^> t Aa ,^ I ■>.!,? U . •> , F 10 . j , Tbb , "X' 
IF ( NC P F N T . F . I ) G iJ Id 3 10 
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S'ja ROUTINE LANOHL 

» * 

* THIS iCUT[Nt WLADS In «A« OATA F0« PUTtNTItL LAnO^ILL » 

* Siri:, ANO C4LCULATLS f I X L i; ANO VAkUtlLt COSTS AM) " 
f HTHtrJ 2UAMTITIIS FOR T^-it IILP iNPuT * 

* * 

t*« I^lITIAL OtCt.A;^ATiaN UF L VARlAaLt.S AS ><it^L 



I "PL HIT 



;. L ( L I 



*** lJfCtA«ATIUN Of VABlABLfS FUR N&MtS AND 

TITLES 
•^ r A L A S T ^ S K 

kfAL TlTLLt'<UNNAn*VFCNA?1,S'iCNAri,TiiFNArttP(-ThAM, 
1 LFLNA<t»w:)CNA."«,nK.TNAn 

iNTcc.et< ^,H, r,a 

I^JT€C'^o i NU^'Ar ,LlNi; S,fc■N')^^X 
INIFG'^ J TDTt i^*": .f ^FLAfJtKiJNYyS, 

1 <UiNiit-0.>^UNeNa, iNKKPt'lUT^t H,THkITt,Oi^('ITF ,LANUCD. 

2 S^CinN,TPFI')M,PLTiCtHfLFLlDN,nKTIDN, 

3 UP. H;!0,nf SriO,TRSTAT .t'LST AT,LFSTAT,5TAr J 

**• C'NFr'AL Citif^Oi-l .-'LUCK 

C'')-'-i)N/GF'^OAT/ASTk'SK( 1*2) ,T[TtF«^» ♦Ju^NA^(';» , 

1 LTULFL,Lr^UnTK,LNU.-'PL,LNUMLF,LCAHTL,PATt, 

? '^^H tT iDfTUTtK^.L^FLAGtDAT , 

i t^UNbtGt'«UN£N3,-'UriyKSi INRLf ,!)UTh.tP t r^"^' 1 TS. ,'jHkI Tfc , 

^ LANOCDtNUiVtCtNUiS^C ♦nu'IT '■■.'= tNUMPLltNUrLFL.Nl-tSKC, 

*i NUlif < T( •>» »NPA';t »L INPAii 



<■*« COMiJN Fl]^< LANUFlLLS 

CO-MllN/LFLOAT/LFLN AM( t'O ) .LFLLLI (^0 > iLFLOlT ( t!0) , 
I LFLFCP t /O) ,LFLVCP).?0>,LFLPUP( 20) iLFLV(JP(^'.>» , 

^ LFL lON(^O) ,LF STAT(^O) 



nrifNSIHN ir»^(,^i),^t3) ,L"lPPAY(^0»'J.i)iTHkU(^O,'>»,I«AY(^O) 

"iI-^FNSItlN C!iSTCt2 0,'5),C']n('5),TH«l'j),FCUu,^)»VC(ZO,<'),Ki(^0,^) 

1 -FNSIHN THKUdf ^0,5) iCllSTCH^O.^) ,NCP£t^U) ,NClPE( ?0) ,LF rUSTC^^O) 

DIlFHSION FNl)PAY(^0»S>,A'nTPAY(?OtlJ,NLU^'P(^0)iNnYrS(?l,NYL(:j) 

I'^FNS riN ALU( .IKLFLLLUO) ,l.FLUL<^0) 



R^ t.L ST ATLt' ( J) .CAP-^AY C ^) ,!iL,Nr. ST4 

OATA STATL</"m;T UStD"," USED ",' 

n&TA CAPwAY/"AMIt- T I ZO"."LUf-P PAf"*/ 

OATA n;)YLS/"ni: ","yES 'VfiL/" 

C n N T I N U I 
I NCP=0 



MODEL "/ 
"7 



'JOI JU 7U0 

00 130 BOO 

ij 1 j ■-.» 00 
QOiJIOOO 
001 Jl LOO 
00131.200 
OOIil 3U0 

001 Jl'.OO 
001 Jl :jOO 
00i3lb00 

00131 /OO 

13 id 00 

001 Jl'/OO 

0013^:000 

001 ii 100 
001 32200 
001 32 JOO 
00132*100 
00i325u0 
001 J2f50U 
GOi Ji: /OO 
001 J2b00 

00132 900 
0U1J3U0Q 

00133 lOG 
00133 200 
U 1 J 3 3 00 
00 13 3^.00 
OOLJibOO 
00133600 
00 i 33/00 
OOlJJdOO 
uOl 3 3S»0a 
00 13 't 00 
00l3<ii00 
00 1 3't2U0 

00 11<« 3O0 

001 J't'tOO 
001 3*1 *> 00 
001 3'.fa00 

00 13'. 7 00 

001 J'tdOO 
0013<i<^U0 
001 i^OOG 
001 i-i 100 
0013t)200 
001 Jl JOG 

00 13^*100 

001 3t)>0Q 
001 Jt)t)0O 

00 1 Jt) 700 

001 35(100 
001 3^9 00 

001 jhooo 

001 ibiOO 

00136200 
OOi 36300 



I WA Y0=0 
I WAY 1 = 

KEaDCK.iOC;* LfL[0N(J».LFLN4>1(J).LFSTAl(J),LFLLL(J),L*-LUL(Jlt 
i I^AY( J),NCPeMTtNUP^NT,LP'''JST(J) 
300^ FnP^iTI I i,4H, 3>*II»bX,<>F10.0,3(Hji,Il),FlO,0) 
IF C^T.PPNT.CT. I J INCe = l 
IF (NlPtNT .CT . 1 ) iNUf^ =1 

NCPF{ J I =scpf ^r 

N n P F ( J ) = M P F N T 

IF ( IwAY< J) a Q.O) IHftYO = L 

1= (NAY(J).tJ.U lHflYl = i 

IF( LFSTAT ( JJ.LT.O.G-'.LFSTftK J».Gr.?) LALL Ef^RUkCSOi) 

ic^ I LFLLLI J) .GT,LFLUL( J)) CAlL fc *< rfU-* 1 1)0<:' » 

IF (LFLLL( J I .CT.LFiUS T( J) /KUNYKS) CALL l K ^(J(i CsOT ) 

STATJ=LFSTATU) 

** VFAD AND CALCULArE CAPITAL t^lTwltS F 'J W ALL ^.IZtS 

n '^ I 1 >< = U rt C P F N T 

IF( iHiV ( J ) .Nt .OJbU TO 105 

►'F4[:{P,30 20»rJNUf',THBiJ(J.K).rNrPAY(J,K»,AnTPAY(J,K) 

30?n FO'^'^ATtl j,7<«F10.0»(iX,l't.Fin.O) 

I c ( lONUfl.NF .LFLlilNl J n CALL [KkiJ-^IiUJ 

N Y tf *) =c N iV A Y ( J , < ) - ;^ U H H E u 

CnSTC(J.'^)=A.-iTPAY(J,f<)*(l.*-JSPHF<'<ATF,NYKSn 

m ^As 1=1,3 

! Y ■< ( J . K , 1 ) = 

Z*,"^ L"lfPAY{J,K,n='j. 
GO T'.i 10') 

10^ »^fi :)(-(( i0 5''/nDNu.i,NLui''(ji,T't-iuiJ.'<)i(iY><{JtK,n, 

I L-'fPAYC J,K t I » t 1 = 1 1 J > 

30)0 FfJR.~vAT(I3.6X,IUFir).0t3(nX,!^,Fl.).J)) 

I F ( IL'NlJ'-I.Nt .LFLI^INI J » > CALL t (i P 'V ( •> 1 1 J 

ens TC( j,!<) = ii 

NLP=NLUrP(JI 
00 10 7 I = 1,MLP 

'~nsTC(jiK(=rjbTciJtK)*LMPPAr(j,'<tM/ti-'-«ATt)»*(!YHj,K,,n 
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107 
110 



c 1 ■■; < K ) ^ c J s T c < J , K J 

T M J (K) =^ T t^ w U ( J , < ) 

cnN T Htjf: 

CALL J'-GK f SlNCPt. NT. Tri'^fCQG.FCAP , VCAP ,WStCAP ) 



fC.i 



J , 1 ) = r C A .'' 
J,l ) =VCAP 

J , 1 1 = -■ s '-; c . 
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Cil.>Vi=<T F!,)^ FnT^Y to IILP 



3ri^n 



L ■: L F CP < J ! - F L A t' 

LFL VC ( J ) = VC AP/t^UNY.'S 

*^« NOW fJPFt<ATlNG Cb'^TS 

01 ?in •<. = 1 .MJPLi^T 

h' f AO (k , i;Ho ) 1 1)^0'-'. thpijiji j.<< > tCf;s to( J ,■<. ) 

F iJ-<-"'AT ( I ) , 7X , ^F lO.O » 
THW(K)=TH-<U'J(J,'<) 
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00 I -t 1900 
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I f^ ( IDni.J«.N»^ .Lf L [DM J ) ) CALL - -^ K 'iw ( ■, I L I 
C'lN T iNijf 

CALL ^f ;>;i s( NUPLNr , rHt< ,cgu,f ijpc, vjpc ikiuup ) 

V C [ J » ,' ) = V 1 1 1^ L 






* » * 



C.;nV(-T TJ FIGU-ti:^ TU tNTr. V '1(L^' 



LFLFOntJI =F C^'C*^"ACTUK 
L ^L vnP ( J ) = Vl)PC«F ACTlK/KUNlTt'S 
LFLLLT(J| ^LFLLLCJJ'KUNYkS 

LFLLLT(J» =AMiNL(LFLULtJ)«'JUNtWS»LFrHJ!iT(J) I 
TfiO CHNTlNiJF 

IP ( ISJ,F o.£.,).0) kcTUKN 

f'-lMT TmF WfSULT'; FUk Ai'Jf^n/LO l/. ^jfill^ 



IF 
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TI 

Th 
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"L 
T4 

L I M 
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!<= 
NCf 

iTA 

IF 

Nf N 

F n^'. 

O'l 

hi <i = 
ST4 
ALL 
A JL 
TH^ 

FNJ 

ens 

ens 
1 p 

Nrt =. 
STA 
ALL 
AUL 



( I- 
L H 
TF 
-AT 

^," 

FAS 
1 ," 

"AT 
t S = 
1^^ 
( I^ 
FNT 

^:nt 

T J = 
t NC 
< Nr 

-AT 
l^n 

RL 
= aL 
T=0 
T'O 
UV^ 
P)' = 
PX = 
TCx 
LUX 

<N. 
LFL 
= ST 
T'L 
T=L 



A y ■.) . 

F A0[ 
( w I i 

( / 1 
A N N U 

"AM 
LAST 

" n p f 

T",T 

flST 
< IX 

J = l 

Af ( J 

= NCP 
= N f? P 
Lf ST 
PlNT 
PFNT 
A * ( 
( 1 If 
N=l 



I- U . 
« ( b 1 
OUO) 
* ,"L 
AL" , 
t^UAL 
",T ? 
sAT I 
'./',*' 



1 CU TO I^b 



ANOFILLS rtlTH AnT-*TI7tL; CAPITAL CnST"// 
T 7 ,"ArijK T WAT IL;r.",T90 ."ANNUAL" , T10'',"Af^NuAL", 
■VT J0,"THhiUUOHPUT L Ir*! TS,TUNNLS",TS7,"CAPACI TY", 
/, "ANNUAL'ST'*Oi "CAP I TAL'S T 102 , "THft PU^^HPUT" , 
NG'V 1<,"L Af5f:L",Tl l,"NA^t",T.?U, "STATU S'STii. t 
■■^nST" .T'?'!, "TGNN; S"»T?)'*,"Yt Ak", T ?b,"PA Y-LNT t »". 
TLO'it-'TONNrS", n Jo,"Cl;ST ,1"/ ) 



, NU.lLf L 

) .Nf .0) CU T;) 1'33 

H J ) 

F ( J ( 

A T ( J I 

.C. T. l.tjt^ -Nn»FNT,GT, I ) 

,0 I . 1 .Uk . NIJPFHT . GT. 1 J 

NCPL'JTtN'lHLND 

, I-. , Jx,AH,.^X,A'i , 1 * ,t'F l?.0,f lA.Of 3X , Ui'^ i; .0, 3F 1 J.O) 

, "I F N n 



w-iITt (H,30irj» 
LiNt S = L IN£ S* 1 



. :1 
.0 
0.0 

n 

0. 
- . n 

= 0. 
= 0. 

cT.ii en TU 1^0 

NAM ( J > 

ATLP ( ST AT J*L ) 

^- L L L ( J > 

F L U L ( J ) 



OOi't^ 100 


OOi't^^OU 


UU I'.^BOO 


OOl't^'.OO 


OOi'ti^^OO 


UOl't^bOO 


ool«.^ ?oo 


001*1 i^HOO 


OOl'i/VOU 


OOl't JOOO 


uOl't JiOO 


OOl't J200 


00 1 'til 300 


OOl't J-iOO 


uoi*. j^ijo 


00i'.36UQ 


Oul^ J /OO 


UUi'tJrjUU 


OOi'tji'vOO 


O'Jl'i'tOOO 


ijOi't'iluO 


liOi't't^OO 


GOl't'. JOG 


OOl'.'t'.OU 


OOi'^'tbOO 


UOi'.'thU'J 


OOl.'f'i 700 


iJUl^'tclOU 


uOi't'.^uO 


IJUl'tbOijO 


UOl'i^ 100 


UOl^b^'Ju 


OOl'tb 3 00 


OOl^'j'.OO 


UO l't'5-5 0U 


OOl't-jbUO 


UO 1. 1!> 7 00 


UUl't'>OvJ0 


(10 l-tb'-yuu 


ooi^buue 


001 '♦MOO 


UOmh^OQ 


001^(6300 


OOltt.^00 


OOl'.btjOO 


OOl'ibbOO 


OOl^to ?J0 


OOl'.bbOO 


OOl^b'^OO 


00 I'.? 000 


OOl*.? 100 


uOi't /^uO 


OOl'./ JOO 


001't7'tOO 


00i't7'>00 


OCi'.7bU0 


001 <t7 7 00 



120 



130 



IBO 



I'tO 



1^0 



If-" cn.gt.ncpsnti gu to no 

THt(UX«TH>'U( J,N) 
FNOPX = PN()PAY( J»N) 
A^TP*ift>lTPAY( J»N) 
CaSTC)C-CL'STC( J, IS) 
IP (N.GT.NGPt nT» GU TU LdO 
THRUO>(='Thw'JU( J,M) 
COSTn)(:'C(!STO( J,N) 

mRITP (w,JO^b) LFL IUN( J) tNM,ST A, ALLT»AULT, THkU)^,r NOPX, AMTPX, 
L CnSTCX,rH«UL'X,Cl)STOX 
LINCS=L iNf S*l 

IF (LINES. LT.LINPAG) GU TO l-tO 
CALL HEADfKl*.! 
■/flTE (-,3000) 
LlNfS=l6 

cnsTiNut 

r r ( nC P F S T . G T . I . U« . NO P t N T . G T . I I 

IF <NCPt. NT.GT . UUK.NUPFNT .GT. 1 ) 

C'lSTlMUt 

IF flWAYO.FQ.O) CALL HiADFWC)) 

IF ( I^AYO.LO.O) LlNtb^lO 

IF (lWAYl.t3.0) GO Ti) ^Jb 



writf: (H,3oio) 

LlNc S*=L INE S + l 



C 

C P 

C F 

C 
303 
3C3 



CINT TmL RFSULT5 f 'j». LANU^IlLS HITH LUMP PAYMENTS 
OP CAPITAL CiJSTS 

A FTRr-AT ( /// 1X,''LAN0F ILLS HiTH LUMP PAYMfcNTS OF CAPITAL COST"/* 
•i F'l^rlAT ( /TA7t "Annual" »TlO't," ANNUAL" »T 11 <t, " ANNUAL " t T 126, 

1 "ANNUAL"/I£6."TMR0UGHPUT,T0NNtS'ST^6,"CAPACI TY",T^^, 

2 "LUMP t>/\Yr!fMrS UF CAPITAL COST" , T iO J , "C AP I T AL", T II 2 , 

3 " T ^-uOUGH PU T ", Tl 2^1 1 " UPFi^AT ING"/ 1 <f "LABEL" tTS(,"NA^F", T 17, 
*• "S TATUS" »!;!«, "LEAST", T 1» , "(i JS T" , T<t 7 , " TONNt S",Tbf), 

•> 3("YFAP - i " ) ,T10't,"CCJST, i",Tl l't,"TONNES"»T I2h, 

h "CCST,t"/) 
30^5 F'OKrAT (^X,U,lX,Ati,U,Art,^F^0.O,Fil.O^J(lX,l*^,FIO.G),3Fn.0) 
IF (Limits. lT.LInPAG-I^J GO TO 21^ 
CALL HFADF'<<'5) 
LINPS=10 
2 I'' H-?I TC f w,3(j3<,l 
2 2 fi w i» I T t < •* , i J 'J ) 

LlNFS»LlNt"S»M 

DO 210 J=l,NUrtLFL 

IF ( I»AY( J» .Nf .1 ) GO TO 230 

nCP'nT=nCPl( J» 

NOPF^T=NCPt ( J) 

STATJ = LFSTAT( J» 

IF (NCPf NT.GT. LOW .nOPFnT.GT. i > -«ITt. (h, 30101 

IF (NC^t NT ,GT. i.O-^.NUPENT.GT. i > L I NL S = L 1 Nt S ♦ I 

NF'>iO'^"AXu ( NCP E nT iNOPF N T J 

240 N'UNENO 

N1=> OL 
S T A = 3.L 
ALLT^n. 
AUL T^O. 

TH«UX;.0. 

MY'i m =0 

NYf. (2»=0 , 



001^7800 
O01't7900 
OOl^tdOOu 
OOl^dlOO 
00140200 
0014^300 
0014S^0O 
Q014B!>00 
0014(1600 
00l4d 700 
0014(1000 

uoi4avoo 

00 1 4 '^ 000 
0014^^00 
O0L4<*200 
00144300 
00l4'*400 
0014>^'300 
00149600 
00149610 
00144620 
00 14V 7 uO 
0014'VtiOO 
0014V400 
OOlbOOOO 
00150100 
00150200 
O01'>0 300 
00150400 
00150-jOO 
00150600 
00150 700 
00 1 50 « 00 
00150400 
00151000 
00151100 
00151200 
Oul51 JOO 
00151400 
00151500 
00151600 
00151 ?00 
0Ol5ltJO0 
00 151400 
00152 00 
00152100 
00152200 
00152 300 
001'>2400 
00152500 
00152600 
0015/1 /OO 
00152d00 
00152400 
0015 3 000 
00 153 100 
00153200 



^bo 



TM 2bb 



t L IJ ( 1 ) = " . 

ALU (?) = !). 
A L 'J ( 3 ) = . 

c :;s Tci^ = .^. 

TH'^ur'^= J. 

cos TOx.-i. 

IF <N,GT,I) GO 1 

Nn^LFLNAi ( J ) 

STA=Sr4TLr'{STflTj»l) 

aLL T =LK LLL I J ) 

ftUL T=L'^LUL( J J 

T M k( u X = T H -^ I J ( J , N ) 

[)n ^^O 1 = 1, J 

N >" •" ( I) = I Y -< ( J , M , 1 1 

/?i5 CnSTC<=C^)STC<J,N) 

! F ( N.GT.N'JPt NT I CC TO ? 70 
TmWUI:x = T'<t<L! ( J .-^1) 

COS rnx==cusTi! t j,n) 

?70 --JITr iw.iO'.';) LKL ILiNt J) ,^<r- 
1 I = I t 1 ) , C ■.) S T L X , T h K U I) X , C J S T n 
LIN^"S = LINL5*-1 

ir (LIN: S.LT .lInHAC ) GU TO 
CALL HT A.)( l< I -5 J 

v- i-M T f { w , ;' i <. ) 
w JI Tf (-1, JOJ-? ) 
L [ N "^ S = 1 ', 

<"to civuisu'' 

IF (NCPti4T.Gr 
n- ( ftC P ► s T . t, T 
?J0 CllNTlNllL 

? 3 ^ IF ( I M C ^' . '■ ^J . L . A M> . I n J P . '^ c- . 
:f (LiNj ^ .l r.LiNf- au-'^i go t 

C \ L L H F A l1 t ■( ( b » 
L INFS=li^. 
1 (? ^5 W J I T : ( w , 4 -1 U ) 
■ir"=,0 F^i^rAT ( / A IX, "LA'^OF Ills - k 
1 "Lft ^FL" ,110, "NAIL " ,1^?.,"IU 
i T'^Hi'T. APITAl cost vs. CAPA 



, STA , ALL! 

X 

i *( (i 



,AULT,rMt«UX,(NYi (IJ,ALLi(I), 



I . U k . N f] P t N T 
I . a K . N U P i: N T 

AM*. IN JP .c C 



r. 1 > Mr^I T 

T.n LiiNt 

II 3 2-5 



l:SULTS J» 
T t w C -^ P T " , 
CIT Y", JX , 



c (^(.JOiOl 
S-=LlNLS*l 



kt GktSSION'VM X, 
T i7,"iLUPK ", ytR.-kSuUAKF", 

"UPfkATIONAL CnST VS.THkiJUGmP 



JT"/ > 

L INES=L iNt S*T 

Dn 3 10 J = l tNU.ILrL 

It (LINF S .LT.LINP AG ) GG TO 3Ji? 

CALL HE AOE «. 15 » 

KWITF (M,30^r. J 

11 a NOP c NT=.NL'pr ( J ) 

NCPrNT«NCPF(j) 

IF ( N') P L W r . L U . 1 . A N U . N C P E N T . 

IF (Ni)pf MT.f'C:. U GO TO 3^'li 

-J^ITE (w,lOf)0) Lf LI1JN( J) ,Lf 

L INFS = L IMLS* 1 
in'iO FHR'-AT t IX, l*,?;(,Ao*F Lb. 1,F 
■J?0 IF (NCE NT.fu. 1) GU TQ J 10 

wy.ITF {-.JOi'O) LFLIDN(J),LF 
3 70 FTRfAT ( 1 X , I i. , ^ < , A ,>J , F 1 ^ . 1 , F 

L [■^tES = L iNt S*-l 

310 C'lNTINijF 
Q t TG"N 

ENO. 



L J. 1) GJ 
LNAr-f J) ,t 
1 1. 'j.FLO. 

L N A r ( J ) , F 

1 3 . '^ , r 1 . 



T L J n 

3,T^h,"X") 

C(J,U,VCIJ*1),RS(J,13 
3,T^t), "X") 



UOlt) J JUO 


yuit.3^00 


OULbJbOO 


01*53600 


0Qlb3 /OO 


00 1 t> 3(3 00 


uOibJ'yOO 


ooi'3'touo 


OlJl'>'t 100 


OOlD'tiiOO 


oOit^-t 300 


OOi>'t<tuO 


GOl'j't^OO 


001:>'t600 


OUl ■)'» 7uo 


OOi'j'.aUO 


UOib'* -^00 


Ou lb bo GO 


OOibb 100 


OCibbc^OO 


00i5-)300 


00ibb<fO0 


001 b:)'>oO 


00l5bbl0 


OOlbbhOO 


COibD /OO 


OOlb-jBOO 


OOibb'vOO 


OOlbbOOO 


JOIbf-lOG 


00l'>b^OO 


001bft300 


OOlbo'.OO 


OOlb'-.bOO 


001 b^. 600 


001bh?00 


oOibr.dOO 


Dolb'i^oO 


00 lb 7 000 


OOib^IOO 


UOOi:) 7<^00 


00 lb? J 00 


00 lb /'*00 


GOl b7bOO 


00 1b7bOO 


001^/ 700 


OOlb7HO0 


0aib74&0 


OOlbfiOOO 


001 :i^ 100 


001 bci ZOO 


00 lb:5 3 00 


00 ib«'«00 


OOibtl-jOO 


001 brtfeOO 


OOib.1 7QU 


uOl^HyOO 


OOibO'-*00 


OOlb^^OOO 


Oolb^lOO 


001t.'ii<^00 



c 
c 
c 
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c 
c 
c 
c 
c 

c 
c 
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♦ THIS i'llUTlNt KtiDS IN K£5nU'<Ct NA-nES* ThFN Df. "AND • 

**<> Initial 0£CLAkftTlON OF L VA-^lAtiLtS AS i^EAL _ 

1 1 P L I C I T k e- A L ( L > 

*** nrCLAf-ATIDN OF VftklAflLfS FOk NflrtS AND 

TITLf S 
RFAL ASTWS«<, r 

^fAL TITLl ,l'UNNAn,Vt;CMA1,SWCNAM,rwFNAn,PLTNAri, 
I LFLNA-1,K SCNArii-IKTNA.l 

I N T t"G t ^J R , .* , T , n 

HTFGFt TGTfc-«K,t'<FLAO,KUNYk-S, 
1 tUN4ft. ,KJNCN''),lNwi;p,i]ur'<EP,TwWirE,[)WPITF,LANDCO, 

7 S'-'.CIDNtTt'FinN,MLTll.)N,LFLlDN,1(<T IDN, 

3 fJ.-lCin,CtSTIO,TkSTAT,PLSTAT,LFSTATtSTATJ 

»»>> '".Fm{. kAL COrlnUN -ilOCK 

C .] *" -^'1 S / G r N ;J A T / A S T ■« S K ( 1 M , T I r L L ( ■J ) » *< UNN A n ( b ) « 



L 

E, 



LT JLFL ,LNUirv,LMU.'^PL,LNUnLF , LtAPTL t« Alt , 

i-'t.-*tT,:),TiJTtr^ri,tvFi_AC,L)Ar, 

^UJN8t C,kJNtNn,kUi>JY'<S, iNHt P»UUTKLP t Thi*. 1 Tt t:>HK IT£, 

L/.MJCn»NUMVtC,NLi1S^C.NUf^TkF,NUriPLriNUr-LFL.NKESkC» 

NU'inKT ( M . NPAGt ..L I Xt^AG 



** * cui-M'iN F oy «A».Kt rs 

C'lnr")N^ir<T::Ar/i^SCNAr'(^J,."iKTNA.i(9,n,ntnAND«4,4),P«lCtT(S(,4), 
1 MKTItJMl^.^^) 



1 CilNTlNUt 

:f ( iN^f o.CT.o) Call ritAi)t-j(f.i 

ir ( lN«;^_-t'.CT. ) hf< I Tt ( w,60'iOJ 
5 000 F.lRi(\T(///T'3 3, "ANNUAL ",TdS, •TOT.'', L'V T '!,"(.' tiOUKCF",!! 'N 
I "-lA-^^CT",!/ 7, '*~iAKKt T", r'tU^-Px ICi ",Tt;i,"L£l1AND", 
> T^,'),"T[: lANC"/ lJ(."NUt--lF-( NA«f '•,ri^*,"LAbFL", 

3 T >8."NA-":",r V*,"1/T0NNL", 1*3 J," TONNES", T 6')," TONNES "/I 
tJOAO F'JJMAT (IXl 

FACTO-' = iJlP wt- (« AT E .kUNYKS > /C'UNYRS 
SO 10 F nf f*AT< A:-l ) 

m 7^0 J = l, .n^LSkC 

wfA0(>'t'7:U0)t<'SCNAnt J) 

IF { INw't^^.tfJ.O.Ul- .L I^tS.Lt .LlNPACJ GL TU 10- 

Ci\LL HrA-H<(bl 

«« I rr ( w ,sono ) 

L I N E S = 1 h 

in NM< T" J*NU1M<. T ( J J 

DO 710 k = 1,nhkTk:j 

RFAn(-^,bO?0)"1KTlL;M(J,K),«1'<r^Af1(J,r<),P«ICt.O£MNN0 



OOlb'^JOO 
OOl'j'^'tUO 

00i'j470u 
OG l^-*dOO 

OOibOOOO 
00160100 

oolbo^oo 

OOlbO JOU 
OOlfaO^OO 
OClbO^OU 
00 I6u600 
00160700 
00 IbObOO 
00 IbOVuO 
OOlblOOO 
00161100 

ool6l^oo 

1 6 1 3 U 
00161^00 
OOltoibuO 
00161600 

00161 700 
00l6ld00 
00161V00 
0016<::000 
0Uiti<2 100 
0016^/^00 

00162 300 
OOio^^OO 
0016<;^00 
OOlb^feOO 
00 16^' 700 
00l6(r dOO 
0016^900 
0016j)000 
001b J luO 
0016 J<^00 
OOlbJiOO 
OOl6J<tOO 
00 lb ibOO 
u01t>"3bOO 
00163700 
OOlbiaOO 
uGlo3V00 
OOlb'fOOO 
lb 'i 100 
00164^00 
UO Ib't i<i\i 
Ouib'i'tOO 
OOib'ttJOO 
OOlb-^bUO 
0016*. 700 
GO 16 ^d 00 
Oulb't'JOO 



or 

[F 

L I 

If- 

L I 

J 

I ^■ 
r 

LI 

C T 
'Jt 
EN 



701 



7 10 



7?' 



■^-ATl I 3 ,a-i, fXtf 10. jj ,1= lu.'J) 
I C FTC J ,0 = -^'Kl^,f <? FACT OR 
"I AND ( J , r<. I = OlMNND ^KijNytfS 
( iN-'i^^.t J.O ) 00 Tl) ?0l 

ianO ( j , -, ) 

^-*T(lx,I3,Sx,/. B,lX,l't,itX,A«,Fll.^',^X,<fFl<f.OI 
NtS = L IMFS«-1 

(LI Nf S.Li . LI'^P4G ) OU Ff) /'H 
LL H^ivlLKlr* 
ITT ( rt , SO ) 
N F S = I *: 

cun- =,-KrK)N< j,K ) / K'O 

( JC'inL . Nt . J ) LALL i-Wi^.)i<( ')':>I ) 

n N T I N I J t^ 
( iN^bp.':,T, ot -"• : Tt (-,'50'.;m 

"Jt- S = LlNf- S + 1 

M riNu' 





00 If. 

J u i o 

UOlo 
OU lb 
U 1 o 

00 In 

If) 

U 1 1; 

1 f . 
Lb 
OUlb 
0'j1(> 
00 If) 
00 It 

Oult) 

oou> 

00 16 

1 1, 



bOOO 
:?iOO 

t) JOO 

'>bOO 
56uO 

^ /oo 

bttOO 

bO'JO 

tj luo 

6^'JO 
D-lOU 

^•1J0 

f>^UO 
(jfjUU 
f)700 
t)BUO 
69U0 
/JUO 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
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c 
c 
c 

c 
c 
c 

c 
r 
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« » 

* THIS -TiUTlNt -'fftfJS JN ALL TK ANSPUKTATIUN L[NKS* * 

* Ch^C^^ t-iiti CrtVlUUS iJAlA t-K...<at.S AND rftCUS^DS 1 f>F CkMATI UN * 

* lu AP^Ar uwibtDf ),ijtSTi;H ) and ARCUSK ). ♦ 

* ACCO'^O II^G TtJ THE Flag iNi^tP, Ar<CS MAY BE LiSTtt) * 

*** I,N*[TlaL ;Ji CLA-(4T [^JN of L VA^<UaLf:S AS -^ t A L 

I-PLICI T i^c AL<L J 

• ♦* OtCLA^fillUN OF JJJtiLr- f'Wt-CI^H)N VA^lAbLLS f UH NA>lfc5 

TITLES 

PFAL AST'^SK 

^F 4L T I TLL , ^v UNNA ri , vt CMi"i t S <Cn^'-' 1 T -vJ- NA ri , PL T N An , 
1 L^L^A^1.-■SC^AH,«^ThA^ 

5F AL NAit 1 ,NAr!:/,auE srs 

iMTEGFf T'JTt^K.t kFLAC^^UNy^Si 

1 '■<UNJto,.KUN^:Nn,lNktP»nuTf<tP,THKlTL*OhOIT£»LANULU. 

2 S i^ C [ lJ N , T -! f I J N , P L T I I) N , L ^ L I D N t M K T I L. N , 

1 Li;.IG[L),i>l. STI'J.T»<STAT,HL'>TAT.LFSTAT,STATJ 

*»« OFN*:<*AL CO-MJN iL'JCK 

CT'-'lN/-, tNOAT/AST'^S<(i5),TITLt('i)i-^UNrKAPi(t5), 
t lTOL'^L .Li-iOMTt^fLMJ-^PLfLNUMLF iLCAPTLnP.ATt, 

i ^tHtTfU^TnTr ^r<,Fw^LAC»UAT, 

3.: kUNrir&,tsUN£N:j,kUNY'<S,lNPLPfOUTi^t;P,Tw|., ITC.OHKlTEt 

4 LAN!JClNNlj»lvL'CiNU"iSr<C,NUI"TkF,, hiU«PLT,NUfLfL»h'<*:5KC» 

"> Mjn^KT ( -n tNPiGi ,L IMPAG 

*<"!' VrnlCLF'j Cij.inrjN .ILJCK 

C "IM--JN/ vi^CDAT/vfCNA.-f 8) ,Ci_!STTH( i ) 

9=>» SilJi^CtS HMfL'N -^L'-JCk 

':''j.*'"'!N/S''C')AT/s-.L.--iA-i t ^00 ) ,s^cii:r ( ^oc) , alhast ,spc lOM zco) 

#** TfrAN-^FM. STATIunS LOi'-On j-tLilO 

C..}"«nN/T-'F[)A T/ Tt^FNA.-^ (^D) , TXFLLTI ^0) (TKFUlT ( ZO) , 



TkFFCP ( ^a) , Ti^FVCPl ^0) ,TRFFUP <<?0) tTRF VUfMi'C J t 

TkF i 'JNl <^0 ) , TkSTAI < ^0} 



=?»:> Cnf1"';^ F!Jk PLANTS 

CiT-'-n^/PLTOAT/PLTNAn (^0 I ,HlTLLT (^ ) ,PL TULT ( ^0 1 , 



1 



PLTFCPl^0),PLTVCP(2'JI,PLTF0P(^Ol,PLTvnp(,:?O», 
PLTKir'P (^0 ) ,PLTkkN(^0,^y) 1. 
PLT ILI1^( i') ) 1 PLSTAT (<> JJ 



0U167I00 
OCjLb//!00 
00167i00 

0016 7^00 

001t)760G 
00167 ?0U 

0OL67O00 
OOlb^VOO 
uO LbdOOO 
CiOlbo 100 
o016d^Q0 
001f)fi JOO 
OOL6d'tOO 
01b a bOO 
OUlbHoOO 
OOltiO ?00 
0016^3800 
00ioa900 
OGlbVOQO 
OOlb'UOO 
OOlb^^OO 
0&lt.'*3uO 
00 1 fall ^00 
00X64^00 
OOlb^^buO 
OOlfcy/OO 
0Ulb?80O 
0016^^00 
00 I 70 00 
00170iC'J 
Ou 17 0^00 
00170300 
00170^100 
001/0500 
00170600 
00170/00 

00 1 /OoOO 
U0170VO0 
00171000 
001/1 100 
OOi/i^OO 
00171 JOO 

ooi/i'too 

001 /I'sOO 
001/ibuO 
001/1 /oo 
OOl/lttOO 
0017i<JOO 
OOl/i^OOO 

001 7^ 100 

001 7^^00 
001 /-; JOO 
001 71'tOQ 

00 1/<^b00 

001/^?7UO 



CnnrtlN/Lf LUA r/Ll-LMArt(^;J),LFLLLT(^'M,Ll-LULT(i?OJ, 

1 Lf-Lrc:P(^>jJ,LfLVCtMiO»,LFLF'JP(20J,LFLVr,P(2C), 

2 LFLIDNI^O) ,LF STAT [^>0) 

»** CHMi^JN fO.^ HAkKETS 

C ]"(KlN/'lKT'J/iT/-^SCNaMCn .MKTNArl 'J, J ) , OE M AN D ( 9 , ** ) , P t? I C t H ffi , ^U , 

*v» r(iM,iON FLlk y; ANSPUfi TAT IllM A ri C S 

C'lhnf)N/LNMjAT/Af CtJSTt 50i.>0) ,i;h l!jH)( :jOOO ) tUc bT ![)( 5000 > , 
1 NANL1ST,NANUSP.NANL)SLiNANDTP,hAN0TLiNAhUPLiNANDPM 



^. r A L A T Y P !. ( ■^ ) 

DATA ATYPr /■' Sk "," lT "," T- ■' , " (> L *' , " it* "/ 

TATA out STS/"Lf,t ttf.t f "/ 

1 C ) N T I N U J 

L I N F S = 1 ;> 

i^^ ( iN^t- i».i;r, i ) CALL ■^tALjtK(/J 

IF ( iN^^c P .rO. ^ ) >••< I Tt (W,hOOO) 
^^000 F.TPrtATC ///T', ^."kCUNu" tT 7i,"CUiT , t " / 1 1 X , 7 ( "- " ) , "(V I G I N" » 

1 7 ("-"), r 1*. ," ijfiTlNATI JN ",T';H,"VEh1CLP" ,T7C',"IklP' 

c' T ^H,"": - TOivNt"/ 

3 llif."L\-^fL NA.ie'S r29 t"TrPt",T3^,"LAdtL N A li^'-iT '><.', 

*. "T Yt"^ " , T^)r;,"rYPt " ,T 70,"'*IN",T /bi'^t't k TPIP"/) 
F A C T f:!^ = U S P rt F ( ■; A T F , K U N Y ^ J ) / i^. U'^ Y W S 



" 1 F LH - A T ( I 1 , 1 < , [ 3 , ^ X , I i , A A , I I , ^ '; . n ) 

f^O^C F(1t;p"AT( :iK,I'*,i'X,Ay,2x,A',,',At I<.t^X,AH,^X,A'n^X,AH,FH.l,Fl/.')) 

*** ^>:-A!) IM SUUkCl: TO T.iANSfL-t STATION AkCS 

J A N n S T = 

E 5F L AG = 

'iFArm ,eoiO) I CGOt , 10(1" 10, 1 j^JLST, ijvt icTint 
I F( icoor. . ten Ld tu ^oo 

IF ( ICODt .Nf_ . I ) CALL rkKUK. (7J1J 
IF < n'V IG.LT . LOj) LALL r •< k;j«l ( 7 1 11 
IF( IDDFST.LT . 100) CALL F ^ f^' ■< < 7 1 1' ) 
I F( [.TVF FC .Lf-: .0» CALL EK'<Q'^(7^1» 
I'^ ( inVF IC .OT . 4) CALL Ek.^U^t?^!) 
IF( f "^PlAG .to. U GU TCI LIO ■ 
NANDST=.>(AM1ST ♦! 
00 t CiniMANOST ) =IL)Ui- IG 
urST rf?(NANi)ST )=I30t ST 
Ci)ST=TIrtf. • CUSTTH( laVEIC 1 /fjO. 
A^CnST(NA.NjST »= LUST *FACI'Jk 



C 
C 

c 



IF ( IMVFP.NE .^ ) UO TG 110 



M .'. .^i f 1 = U F S T S 



no 101 K-'l.NUf'SvC 



ou, 
ou 

00 
00 

00] 
CO, 

00: 

00, 

00: 

00, 

00; 

00, 
00, 
00, 

ou: 

00; 

00; 
00: 

00. 

00; 

00, 

00; 
00; 
00: 

00] 
00, 

ou, 

uO, 

00: 
00; 
00; 

00, 
OCl 
OOi 
00, 
00, 

UO, 
001 
00 i 
OOi 
00. 

00; 

OOJ 
001 
001 

00; 

001 

00 

00] 

001 

001 

00: 

001 
001 
00, 
Ou , 
00] 



ini 



10? 



1 10 



.■=■0 



R0 33 



?01 



?0? 



?10 



300 



r.] PLANT A'CS 



D'l 102 K=l»NUnTKK 
IF(Tt'FlUN(<).PO.I0DfST»NAnt/ =TxFNAf"(K) 

IF (N4Mtl.e'J. JUf STi I CALL L'i^Kne(7 31) 

IF (NA-t^.tu.f^Ut STS ) CALL F^'Kn;<17J^J 
H J I Tfl "♦^O^^OI luUK 1 CNAlE 1 , ATYt'F ( 1.1 , lUOLiT.NAMLZ, TTYPE < J) 1 
I VrCNA-Hl!.)VrrC),TI.1LiAkCUSr(NASDST) 

L I N F S = L I iS L' S ♦ I 

IF (List S.LT.L INPAG) :iJ TO 110 
CALL Hi: ADf.RI 7» 
w-^l Tf f »4 , HOOO» 
L I N E S= 1 

c iNTiNijt: 

*■*» -f t A'J [ iS SiJUKCl 

N AN aSf »NANL)ST 

IF ( INW f p.f 0. ? ) n^ITl 

LI^^;S»LINi;S♦l 

Fil'^.^'flT ( 1 X I 

n;"* ^10 J = 1,^ >'<*■* 

prfla" = ''' 

kEAi)^ oOlO) ICUUE , IO(K ICi, lOOH ST, IiWt IC , T lit" 

IF ( ICnCt . fQ.'HGO TO BOO 

11^ ( ICCDf. .Nt.<? J CALL h-lK'J"; ( 7(»^t 

ic ( lUOf' lO.LT . 100) CALL fi-^KUkl/ll) 

IF ( in'^rST.LT . ion) CALL i^RR0i<(71^» 

IF t invriC .LE .0) CALL FRRa«(7^1> 

l^ ( I')V» IC.OT. ^ ) CALL fyKriKi7?A) 

•^ANHSI^^NANOSP*! 

11^ 1 G ni NANl)SP ) = nOKlG 

J e; •"> T 1 ( N A N :^ s p ) = 1 J I i T 

C'lST =nit * Ci}STTH( I Ovf IC )/')0. 
ARCDST 1 NANQSP 1 = COST 'FACTIH 
I F ( I NR E P . N E . ^ ) l.U T ri ^l) 

N A M f 1, = U f S T S 
■VI 201 K^UMJISKC 
IF ( S'^CItJNtK » .r IV. lOU-J lG)NA."1f 1 

NS "^i =.)Ut STS 
nn 20Z .<= 1 (NU.'^t'LT 
I F ( PLTI'JN (< I .: J. iOjf S T) 'SAnf:<:r 

rr (NAn'. I. f J, JUt ST':> ) CALL l-;<iJP{7Jl) 

IF (NAifV.C J.QUt STS ) CALL F'.<U^M7JJI 
-«RI Tr(^,fiO^O) IDGKIG.-^A'iE 1,/ TYHi:( 1) ,lUDtiT,NAhL2,ATYPt Ct), 
1 V r C M A M ( I V t [ C ) , T I M t , A h( C 1.1 ^ T ( N A rU) S (^ ) 

LINE S = L INES* 1 

'.) <^10 



SK CNAi-^^l K, » 



= P L T N A "1 ( K J 



IF (LiNtS.LT.LlNPAO J 
C Al L HKAOF« < 7 ) 

w-^ITt (-(,fiOO0.) 
L INt S=10 
C TN T INIIE 

*«? ''EAJ IN SOU^'.Ct 

NANOSL = NANDSF 

[F llNefP. E0.2) n.KlTt 

Ll'^ES = LlNi S* 1 

Jl 110 J'UA'y'y'f 

F J F L AG = 



,1) T' 



Ti) L ANi)t 111 arcs 



( -^ , » 'J J ) 



OOi7b'jOD 
001 7'i600 
001 7d 700 
001 7o rtOO 

ooi7atioo 

O017'*000 
001/^100 
00179^00 
00179300 
OOi7V<.00 
00179 500 
00179600 
001 79 700 
001 79»00 
00179900 
00130 000 
OOIWGIOO 
OOloOllO 
00180^00 
OOlaOiOO 
OOiaO'tOO 
OOIHO^OO 
00 IbObUO 
OOltJU 7uO 
OOitJOOOO 
001b0900 
OOltjlOOO 
00111100 
OOltfWOO 
OOitJi JOO 
OGl.-il'tOO 
OOlrfl^OO 
OOltlibOO 
00161700 

ooitjiaoo 

Ooiai9oo 

OOltJ^OOO 
uOLtJ^iOO 

ooibz 200 

Oulb^iuO 
00 idi: 'tOO 

oaio^'>oo 

00 ia26U0 
001e<^ 700 
001«2duO 

ooia^900 

00 l-J 3000 
001b J 100 
0OlaJ20O 
00 Id 3 300 
OOlti J^tOO 
00 le 3b 00 
OOiBibOO 
1 d 3 7 00 
0U163 710 
00ia3a00 
1 a J 9 



101 



10? 



110 



c 
c 

c 



-tOO 



T A n 

IF( I 
IF t I 
IF( I 
[F ( I 
IF I I 
If ( I 

IF( r 

N A ;-i c 
? I G 

[irsT 
ens T 

ir ( I 

N t M 

on 3 

IF ( S 

on ■> 

IF ( L 
IF ( 

1"= ( 
''O I T 

V 

1. INT 
IF ( 

CALL 
Ht;[ T 
LINF 
CONT 

4 « «: 



cno 
c.\.)r. 
nuc 

Dvr 

t^FL 
SL 

n( 

in( 

ST ( 

FL = 

01 

i^CI 

^p- 

0? 
r-LI 

NAM 
NAM 
F( '-' 
tCN 
S='L 
LIN 
HF 
t ( 
S=l 
INU 



t. . L . V 
[ . Nl: . J 

IG.Ll. 
ST .LT. 
IC.UF. 

I C. C> T . 

At O • L. V^ B 

= h A N D 
N A N J S L 
-■l A IS i L 
T I r f V 
i^< A N J S L 
P .NT . / 
fJUi" STS 
K= I ,NU 

N ( K ) . 
■JUF STS 
•^ = I ,NU 

l)N<<< ) . 

1 1 . t~ Li . 

. H I V^ ) 
A *! < I C V 

r N c s *■ I 

r s , L T . 

A'3f i-M 7 

H , 'I n c 

ii 

I' 



CUiif , lOHRIG, I :J[)fcST, lilvi. IC iTlMc 

) uU Ti; 'tO'j 

) CALL Frt^iJrt ( 70J ) 

100) CALL t *<«U^ ( 71 1 J 

100) CALL FB>?0-<« 71^1 

0) CALL t'^w.OR < /^ 1 ) 
^) CALL t-'RQKf?^!) 

1) GU TO JIO 
SL ♦! 

) - I J ;.' w I G 

) = lUOi-ST 

C[lSTTh( iyv£ lO/bO. 
) = lJST * FACTi)*^ 
I CO TJ J 10 



-iSkC 

(-[). VjV.K I G) 



.SAiir 1 = S-iCNA.M(K ) 



ilLFL 

tU.lLJOtSTl NAllCw? ' LFLNAm(K) 
CUlSTS) call E'i;<U!<( 7il) 
OULSTS ) CALL £ RKuW ( 71'i J 

IJ(J» IGiNAIl^ 1 , ATYPFt 1) , lUOLST ,NAhf ?, ATYPL <Z) . 
:; IC) ,T IMF , AUGUST (NANDSL) 



LlNt^AG ) 

) 

) 



OU TJ 3 10 



t.-faLJ IN TkAUSFt^ TU PLANT AKCS 



WKITE ('<,d0 30) 



AOl 



NAM 'UP =NANDSL 

IP ( [NtfFt'.EO.^) 

LlNES = LINt 5 + 1 

DO 'iM J=lf'''r»V 

ERF LAC = 

i^FACR, ^i"ilG) ICiJOt t I00«1G, i DDt ST t I JVF IC, TI lit 

IF( IC'lCiF.. t.C,-)) GU TO '500 

IF( iconr.Nf. .'. ) CALL i■^R'^^i. I fo^i 

[F ( n'T^ IG .LT. 100) CALL E'<*<UK(71l) 
I f= ( innF ST .LT. lOr ) call E-lkJk I 71^*) 
IF ( I'^vc !C.LF. J) CALL f'iKU<l7Pli 
IF ( lOvr IC .GT. -1) CALL F.^ K Jn ( 7<^ 1 ) 
I F( F**FLAG,F 0. 1) GU Til 'tlO 
NA-JnTP'T-ANDTP ♦ 1 
Q^IGIK NANJTP » = IlJUklG 
OFSTIOtNANDTP ) « lUOt ST 
COST =. TIME * CnSTTH( IDVb IC)/()U. 
AJlCCST(NANnTP ) = CJST * FACTOR 
IF( INCFP.NF .7 ) GU TO ^10 
N A r F I = U F S T S 

[)n ^01 K = i,Mu«m'F 

1 F ( TRFIDNfrv ) .LU. IOOk ! G)NAhei = TkFNAM(K) 
MAfF2»tiUtSTS 

no '.o^ -^ =■ l,nu"iplt 



OOl'i'tOOO 

ooitt^iao 

GUld't JOO 
UU IrtH'tOG 
OOlB'i'300 
OOlb^hOO 
00ld'.7OO 
OOlrt'tdOO 

JO IdiOUO 

OOlBblOO 

OOiab JUO 
001«^'»00 
GOlo 5 -300 
OUlo'JbOU 

00 lab 700 
ijoib^rtoo 

OOiab-yUo 

0OH610O 

00 I lb j 00 
OOlbh'tOO 
OOiKo^OO 
00 la 6b ou 
0013^;700 
00 IMbBOO 
00 iatj'-f 00 
0016 7000 
00107 iuO 
UOIb 7*^00 
UUlo 7J0O 
00Ih7'*00 
OOlfl 7',iO 
001b 7^00 
OUi67fiOO 
O'JIH/ 700 
001576 JO 
OOld 7900 
OL'IH^OOO 
OOldfj lOO 
OOlfJrt ^00 
jIob iuO 
OOitioAGO 
00166500 
00l66b00 
00166700 
001 6o 600 
OU166'VOO 
OOlaVJOO 
0016'* 100 
00164200 
00 loMOO 
0016'* -tOO 
00 1 'I 'J ^00 



**02 



'tin 



IF ( PLTIO^^C" I .EU, lOOEST I NAlc? - PLTNAniK) 

IF (NftHE l.FO.OUt STS ) C 4L L f >■'' ROk ( 7 1^ ) 

IF CNAilC?.E J.autSTS) CALL t^HUViJU) 
WRITF('^»'iO^O^ IDOKIG.NAME UATYPf ( J) » IDDE ST , NAME? t ATYPE ( *. ) , 
1 VECNA'itlOvEICl.TlPiEiARCUiKNANDrp) 

LlNFS = LINf S+1 

IF (LINES. LT .LINPAG) GO TO '♦10 
CALL HE AOEP ( 7) 
WPITE (WtfjQOOJ 
LINES-IO 
CQNTINUE 



C 
C 

c 



^nn 



501 



50? 



510 



c 
c 
c 



600 



« «« 



PtftO In TfANSFEk TO LANDFILL ARCS 



NANDTL =» NANOTP 

IF (iNPEP.rJ.?) HWITt (H,a030» 

LiMFS-L INE S*l 

DQ *J10 J«U't99'* 

ERFLAG - 

I'EAOCt^t'lOlO) ICtJUe » lOURIGf IDilEST,IDvt IC.TI.lE 

IF( ICGOF .F0.9) Ca T'J 600 

!F( ICOOE .ME .^ J CALL E RROR ( 7'J ■> > 

IP( IOORIClT. 100> CALL Eii'^Qxi/H) 

IF( inOFST.LT. 100» CALL fii^Q^iJlZ) 

IF { lO/EIC.Lfc.O) CALL F<R0P<7^11 

IF ( lOVFIC.GT .H) CALL L«Rl)K</21I 

!F( Et^FLAG.FO. n Gi.) TO tiLO 

NAMCTL * ntAriOTL'l 

r)« IGIO( NANiUL J = IOUkIG 

DESTIO(NAnOTL) » IDDtST 

CIST '^ TIr£ ♦ CUSTTHl lavt It)/hO:. 

ARCOST(NANfjTL I = CUST • FACT'lk 

IF( INUIFP.NE.2 J GO TU bLO 

NAHf l.QUESTS 

Of! 501 K^l.NUMTRt- 

!F ( T-^F I I1N(K ) . tG. IDUi< 1GJNA1E 1 = Ti<FNAMlK» 

NA1E?=«CUtSTS 

00 50^ K=l»NUnLFL 

IF ( LFL IUM(K > .E J, loot STJNAnE^ = LFLNArtK) 
IF (NAlf l.EO. QUESTS » CALL t" (? '' C*' ( 7 i^ I 
IF (NA'iEZ.tU.UUt STS » CALL tK'<OH(73'.> 

wai TF( H,.jO<?ri) I JUKIG,NA?1E1 , ATYFE ( U t IDObST,NAnt?i ATYI^M^) . 
1 VECNAr-iHJVEIC) ,TIr1E,A-^C0ST(^A■^0TL^ 

L INrS=L INES*1 

IF (LINES. LT.LINPAG) Gi) TO tLO 

CALL HEADE^(7) 
W^ITE C-, 10001 

L iNrs=io 

CQNT INUE 



#*« 



-^EAO IN Plant to LANOFILL 4«CS 



NANtOPL'HANOTL 
IF (H8EP.fJ.?> 
L INFS-LINES»L 
DU f.lO J=1,^9'J'; 
FRFLAG = 



MklTE (HtBOJO) 



00la9600 
001b9700 
OOld'^ttOO 
OOltt'V/OO 
00140000 
00190100 
00190200 
00190300 
00190*.00 
00190500 
00190 600 
00190700 
00190BOO 
00190900 
0U191000 
0019U00 
0019 1 110 
00191^00 
00191300 
OOl'^l'tOO 
00191500 
00191600 
00191700 
00191800 
00191900 
00192000 
0019^100 
00192200 
00192 JOO 
00192'.00 
00192500 
00192600 
00192 700 
00192600 
00192900 
001 9 J 000 
00193100 
00193200 
OOi'^3300 
00193'«00 
OOlv 3500 
Ou 111 3 600 

019 3 /OU 
00193800 
00193900 
00194000 
0019't 100 

001 9^*200 
00i9'.300 
0019*t400 
0019*.300 
0019^600 
00l9't700 
00 1 9 '•d 00 

ooi9*taio 

00l9<i900 
00 1 9 b 000 



^0\ I 

'> " ? I 



r. 10 



C 

c 
c 



700 



P ( ICO 
F ( ! CO 
F< lO'l 
F ( ID! 
F ( IDV 
F ( lOV 
F( F*iF 
4NDPL 

fiTn 
■1ST = 

r'.CCST 
F ( 1 Ni.' 
N A m f I 

1^01 
F ( PLT 

(1 f-n^ 

F ( LFL 

1 F ( NA 

[ F ( MA 

•< I TF( 
VFC 
IN(-S = 
F (LI 
ALL H 
RI TF 
IN = S = 

n N T I N 



^ 1 i 
f;L. 
DF. 
w IC 
fST 
(^ IC 
t IC 
LAC 

( SA 

( NA 

T I 

( NA 

r ^ . 

K = 

ION 

= ou 

I '"^N 

-r 1 

iF^ 
NAM 

L IN 
NFS 
FAD 
( -*, 

1!"* 

IJF 



1 » 

iO.t 

NT .f. 

• LT. 
.LT. 

,Li . 
.GT. 

. t ij . 

N A i-i [; 

NOPL 
IS " L 

H f i 

NJPL 

LSTS 

1 , NU 
(<) . 

!:STS 
UNJ 
(K ) . 

. F <J . 

. f Q. 

n^^n ) 
( IJ V 
FS* 1 

• LT. 

^'^i 7 

•1 r 



I coot , lon-tic, noFsr, luvt icTifif 

) GU TO 700 

» LALL E H«UK ( /Of.) 

10 0) CALL ii -^ R r) i^ ( 7 i 1 ) 

lUO I CALL EWf;n» ( 71^) 

01 CALL tH«0ft(7^M 

'i) CALL f.SRLl*^ ( 7<^l) 

n GO TO biO 

PL»1 

) = IJC^IG 

) = I t. ■> T 

CLlSTTMt JDVFIC )/bO, 

) = lJST « FAcrrjK 

) GC TO 6iJ 



r-PLT 

FO. IO'.J« IGJNft-r 1 = 



f^LTNAM( K ) 



1LFL 

FU.lOUFSTJNAf^L^ = LFLNAr(K) 
-iUFSrs » CAlL t yi'iLi' I 7 M) 
uUt STS ) CALL t JSP" { 7Jt» 

lOCh' [G,NA'li:l,ATrPi:('iUI!JULST,NAnt?,ATtPF(^), 
f IC) iT InE,A><CCST(NA.sOPL I 



L I rn P A G ) 

» 

) 



GO TO hlQ 



* >>* 



-''^AJ [N PLANT TO nAHKtr AriCi 



701 



ASC'-i 
F ( H 
I N F S = 

t:* 7n 

RFLAG 
FAOti^ 
P( ICU 
F { I CO 

F ( I on 

■^ ( I DO 
F( lOV 
F ( lOV 

F( r«F 

AN CM 

^ icn 

f^STIO 

S T = T 
RCOST 
IF ( In 

N A !1 R 1 

on 70 

1 F ( o.^ 

N A f- E ? 
DO 70 



- N 
■th 

LI 
J 

= C 
,8 

OE 
f^F 
f-' I 
t S 

ri 

F I 
LA 

I N 
( N 

I M 

(N 

J r 

^ 'j 

I 

TI 

7 



ANOPL 
P . t 'J . .^ ) 
N F S ♦ I 



wy ! Ti: ( ■< idO j'l ) 



010) 
. F Q . 
. N F . 
G.lT 
T.LT 
C.Lf 
COT 
G . t 
ANUP 
ANlJP 
ANOP 

e*cj 

A NOP 
P . Nt 
UE ST 

K = l, 
ON (K, 

Ut ST 
I = U 



IC'JDt , irtU-?IG, lODFST, I ;>¥ 1 1 Ci T I .Mf 
'>) GO TO -iOO 
7 ) CALL F k^'JR (707) 

. LOG) CALL t ■^KUrt ( 71 i ) 

. 100 ) CALL :-kKURl 7 1^ ) 

.0) CAlL Et<=iOK(7^1) 

.^) CALL fct<'^GR(7/l) 

.1) GiJ to 710 

"♦ I 

"I ) == I G 1^ I G 

I- ) = lUOt bl 

S TTh( IDVE IC) /f)0. 

1 ) -CGST«F ACTa>< 

.^) GU TO 710 



s 

N 
) 

s 



U n P L T 

.FQ. IUU'<IG) 



N&.Hf 1 =PlTSA li Ki 



uUl iCjIOO 


UOl VxJUU 


OOi'*^ JOG 


ooi'yb'iuo 


oor>t.^oo 


uOi^ljbGO 


00 14 "5 7 00 


OOl-*:)dOO 


O0i'^:)^>00 


ooi'ybooo 


OOi'f blOO 


OOl'ii6^G0 


uui'^6J00 


G0i<*6<i00 


OOlib'jOO 


uO 14 66 00 


I'^t) 7 00 


001-<6ri00 


0014 6400 


0014 7 000 


00 14 7100 


uOi't 7^00 


Oul * 7 JOG 


U U i 4 7 *» L/ 


00 14 7tiOO 


0014 76 00 


0014 7 7 00 


00 14 7 9 00 


0014 7400 


uo 14a 000 


0014ai00 


0O14cl^'JO 


00l4ti JUO 


0014(J'»0U 


00 14a ^00 


OOlVo'jlO 


00 l4*itjOO 


G014d 7uO 


OOl'iadOO 


JOl -*o 4 00 


00144000 


00144 100 


'J0i^i^■i^0O 


001 J4J00 


001'V9'iOO 


00144^00 


00i44h00 


001 *4 700 


ooiv4aoo 


U0l494iJ0 


OO^OOOGO 


OO^OulOO 


OO^OU^OO 


00-iOO JOO 


CO^V^JhUO 


UO,:?0 0'jOO 


00^ JG60G 



■HMKT.-i I »NUMn-< T ( 1 ) 
f)0 70^ K-l,(s.1KTk[ 
70? IF (MKT[UN( 1 ,K).ba.IO>)f STt NAMEi'-,i<TNA('|( I,k,J 

i"^ c^Aif; i.to.outsrs) call L^ni*<(/rj) 

IF (NAHfV.f O.UUt STS) CALL fKKUK(7J'>) 

HPITirlH.HO^Ol inU«l&,NAHLl,ArYPr <<.),lUDLir,NAfl£2,ATYPF (5» 
I V!CNA1<inVL!CJ,TIl1E,A^CUST(NAN0PHl 

L iNtS-L INLS*1 

IF (LINtS.LT.LlNPAG) GU TO 710 

CALL Hf Af)KK( /) 

WHITr (H,H0O0) 

L iSf S= 10 
710 ONTlNUf 

HOO IP( INRFP.!: 0.?) Mkl T£ (H^HO'jO) 
rtO'?0 FTKMAK //^Cx ,"MD tJF T K AMSPiJ=i T A T I ON KOUTtS.") 

FVI 



OO^GO 700 
QO^OObOO 
OOifOO'^UO 
OO^UlOOO 
00^01 100 

oo^(Jli^oo 

UO^Oi iOO 

oo^ol*.uo 
oo^oit»oo 

OO^OlbOO 
00^01 7 00 

oo^oiaoo 

OOi^Ol'^^OO 
0020/::000 
00^0^ LOO 
0020^200 
00202 JUO 



r 
c 

e 

e 
t 

£ 

e 

£: 
G 



r 

e 



G 

c 
c 

r 



C 

c 
c 



c 

e 






L 



* ruis '^liutinl strs u*' 'jn ..^vict t Tml file fOk input tu * 

« Thc iILP SOFThME PACKAGI- , 4LL VAKUdLtS FXCFPT * 

«■ MNP An:j UNN Akt PASStL) t-r<i)M (AkLltR KGUTINFS. ^ 

* V 

**o INITIAL OtCL J.I- ATI ON [](■ L VfiUlAaLt') aS KfcAL 

UPLICIT ''U./^HLJ 

»** iJ^ CL A*? A T Ii;N Of- VA^lAiiLtS f 'U NArt'i AND 

TITLES 
•<cflLAST-^Sx. 

^■^AL TITL: ,KUNNA^,Vl-CNAiH,^>(LNAM,r'«f-NA-<TPLrNAri, 
LfLMAri,kSCNA'",'^KTNA1 



INTFC.f^' *,H,T,J 

iNTrCFK TO Ttt< -'tfKFLAO, kJ N Vt- •■, , 

1 '-'UNrU &,KUNt"Ni;» iN^t f- ♦■.JUT"(f PiTi-K [ T£ i:)^!^ I Tf" ,LAhUCUt 

2 SKCION,TkFIDN,PLT:<)NtLfHL)N,(iKTIt;iM, 

3 ;jJ!GID,!}LSTID,T.<STAT,h*LSTAT,LFbTAT,iTATj 

<»«» QCnTKAL C MhtJN BL':JC'< 

C 1 M'] N / G L -N i) A T / A S T r^ S .^ ( I D » , T I T L M *) > , " UN NA ,1 ( •> ) , 

1 LTJLFL.LMdMT"'-,LNUrtPLtLNUrLf.LCAPTL,fATF, 

2 '',»-,T,D,T^JTfc^-l,t-'FLAO,?JAT, 

i -■lJNrtFG»^UWtN';,-UNY<S,lNt'tP,JUTatP,T>^PITF,J,-KlTti 

*» L AnOC!^ . NJ'IVtC ».NU'-. S'^CNUrT KFfNUHPLT.NOTLFL.NKLSKLi 

5 NUi-'^KTr^»,NPA'Jt.LlNP6t. 

»*« Vtr-ICLES CU"f-;3N dLULK 

CHH-nN/vrCljaT/ Vi C^iAr ( a) ,CnSTTH( -!) 

*** saU'JCtS CDMrtDN ^lUCk 

Cn f-nnN/Si-'CLlAT/SKCN Alt ^00 ), S^C TUT (^00 » 1 AL WAST ,SPC I Ori( ^00) 

»«* TfrANSFLi- STATiUNi CHrtfUN HlUCk 

C0h«r«nrs/T«F!;AT/TKFNAn(2CI),T^KLLT(,^)),T«FULT(Z0t, 
I T.-FFCP(^JI,TKrvtP<^v)),TkfFUP(^0)»TRFVOP(i'Oit 

i TKF lUNl^i}) (T'^STAK <'.■>) 

«** rij.'H..i'liv, f.-j^ PLANTS 

COn,"<aN/PcTCAT/PLTNA'<(^0) ,PlTLLT(^')),PLIULT(?0», 
1 t'LTFCP(.^0),?LT¥CP(-,*L>»,PLTt-OP(^0),PLTVlJP(^0), 

Z PLTK£P (^0 J iPLTkriN< /"),'*» , 

3 PLTlL)N((^U) iPlSTAFI ^0» 

**« CLT^iiTN FO- LANOFlLLb 



00^0 
<? 
0020 
U 2 (j 
OO^U 
UO^u 
£ «J 
0020 
0020 
0020 
0020 
02 
0020 
U02C 
00 2 
0020 
0020 
0020 
02 
u02 
02 
002U 
U02U 
Q020 
0020 
002u 
00 2u 
0020 
0020 
00 2 
02 
00 2 
0020 
ij020 
0021/ 
0020 
0020 
02 
0020 
0020 
00 2 U 
02 
002U 
0020 
0020 
00 2b 
00 2 
02 
U02 
02 
002u 
0020 
0020 
02 
0020 
002 



2^00 
2 500 
2600 

2 700 
<rdoO 
2-^00 
J 00 

3 100 
J200 
iJOO 
J*. 00 
JbOO 
lt.00 
i700 
.J ^00 
"J ^00 
'tOOO 

'♦loo 

^200 
't 3 00 
't'lOO 
"t •) 
^bOO 
<i700 



M 600 

't'VOO 
•jOOO 

5 1 00 
t»2oO 
■} 3 00 
'j'tOO 

•3 5^0 

•jbOO 
■j/OO 
•5dOO 

5'^00 

bOou 
t>iOU 
200 
6300 
6*tOU 
^j-sOO 

6 600 
b/OD 
bdOO 
b >uO 

noo 

7200 
7300 
7'tOO 
7'i.OC 

7 fa 00 
7700 
7dOO 
7 ^^00 
nOOO 



c 
c 



c 
c 
c 



c 
c 

c 

c 



c 
c 
r 
c 



n«-nN/Lf L OAT/Lt LNAfK^'J) ,LFLLLT (<.'0) ,Lf LULT t 20) . 

LFLfC''l.'T)tLPLvCr'(2J)tLf-LPUP(20J,LFLVr,P(^0), 
LhL IDn( 201 ,Lf- STAr(20) 

Cn-'-TN/i-KT ■"; AT/ kSCSM-? ( 'n »r^><TN4r:( 4, 'n ,D£nANC(<y,V) ,PiJ I Ct T (^y,V) , 

PKT iUN(V,9J 

««* C'lMc^ON F'J" Tj<ANSPiJRTATlUN A'^CS 

CnMMPN/LNK,)! T/AKCUSTC^OOOJ ,!]« IGIOf ;>000) , Jt, S T I U < ^0^0 ) , 

NAN0STtNANL(S»'.^AN()SL.^♦AN0T^',^ANDTL^NAND^'L.N4NDP^( 

«** MANr iJF TMt CHAKACTf-< STkInGS, f.G. rib^* NAMtS, h I. P L A T 
»** S:l A-Vf iJtflNfD INITIALLY AS AKKAY ELtWENTS 

><FAL SiJCv).,,Tft Mu-;('.),r'LTK:'^('i),LFLwnw<-i) , 

''^I'<J''(^)iLriT.^il-(('tt,CSTK0H(5},CHGR0W(*«J, 
KH^NAflt "> J ,HN0NA1 
01 fCNS I JN y f^TYPt (^) , A^CTYPl i> ,-jTYT(;< 'I ) , 

,)iLTASl'.»,FxUP(<(),hXuP/<'tl 
HAT A i-'rtTYP'-/" F"." L"," G"t" N"/ 
n A T A S tf C K t ) - / " S •< L r^ " / < 

ThF^f;H/"TJ'FTU*'»"TKLtS","fkM'lS","TkF'<h"/. 

PLTR'1H/"PLNT!J","PLFST", "('L'iyS'S"PLFRM","PLAt^"/, 

UFLi'(l»'/"L'-LTU","L<^LL5","Lf liJS"/ » 

^ ^ 7 k' 1 1 * / " rt A K T 1 1 •' t *' n t< h I ) S " / . 

Li-T- i1h/"LFlTUT AL","'^U'!Tk ANF","NUMPLANT",*"^UWLNr.lL"/ . 

Ci. T«UW/"tAt>I TALL" , "IJPi. *■■ A Tn.,'* ,"Tw a.NSPt^T" ."k'F Vt. NO( i" , 

"NFTC'JST "/-, 
CMGiJnw/"CriCAPI T,.","Ch!;p*.'TNG" ,"ChT knP k T ", "rna F V[ nU"/ 

DATA A - C T Y P /" S T ","■)►'"," ^ L "," T P "," r L "," P L " * " P «•*, " " / 

•TATA W'JTY I')/'VTkF" ("-^PL T","WLFL"'t "^-nKT"/ 

DATA D-t LTiS/"L.TKF" ,"L)t'LT"i"DLFL"," '*/ 



'nio 



OATA P^SNA,-'/":> IGKri^ '"."CHGGtfH "."CHGL-iD 

"lhGCl "/ 
■:^ATA ■iNOKAi/"FAC IL I TY"/ 
DATA F XUP/"F H","FX","UP"," *' / 
TATC, F KuPV/r , , 1 . , 1 . ,0./ 

I F ( IN^LP .(.,T .1) ) CALL HEAUtK(-n 
n M '■ = L . 

*■■*«■ i-Kirt OAFA-str NAr*f; 
■vp irr ( T,9U0» 

F.T'-ATCVnai'- ■', 10x^"(.1NThAST ") 



,"CHGTLFL ", 



*J| * 



HJ I Ti 



lirtS StCTlJN 



**i^»***fV»**V **«**«***"»*#*«!** 



fJWO 



.^^ I Tf^ (T ,>*120 J 

F '.1 ki! -^ A T ( " »< a *^ i " > 



00206100 

00206200 
00208 300 
00200^00 
O020(JbO0 
00206b00 
U02ud ("00 
OO2OS;10O 
002^J0<J00 
002UVG00 
0020^^100 
0020*^200 

0020 J JOO 
0020^^100 
02 0'-y:i>j0 
00204^)00 
02 0'^ /oO 
0020^i»d00 
OG2O'V^0O 
002 10 000 
002 10 100 
00 21 iJ 2 00 
U0210 JOO 
00 2l0*t00 
OO^IO-jGO 
002106GO 

00210 700 
O02i0d0a 
02 10^00 
2 1 1 u 

00211 100 
002 11 200 
00211300 
2 1 1 *» 
u02il:)00 
02iLt)00 
002 11 700 
002ild00 
002 i 19UG 
J 2 1 2 
(jO^ 12 lOG 
0O21220U 
002i2'JOu 

0O2l2')OG 
Ui/2i^tjOO 
002 12 700 
0021 2mOu 
021^ 'J 00 
0021 jOOO 
UU2 1 JlOO 
02 13 200 

0021 J JuO 
002 IJ'f&O 
02 13^00 
02 1360U 
002 13 /uO 



1 1" 

^m 



1^0 



i^s 



1?7 

ns 



l^tT 



c 
e 

c 

c 



.) n 110 J ^ I , N u -I s K c 

•* ? I Tr ( r , 'H 3 C ) >-■ w T V t' M 1 ) , i ■< C -- (i w , ^ t' C I ;j N ( J J 



ilYPASS I^ Nl' TyaiHSPft' STATIONS 



If ( NU'^T^F .■: -;.0) GO TfJ Wb 
DO l?i) J = l,NUnT«F 



1^0 

1 70 
If^O 



DO l?i) J = l,NUnT«F 

Ji^ ITF( T ,-<1.10 Ji^-TYt-f ( L) , Trft-K;)w( 1 ( ♦T*'*- IUN( J) 
f* 5 I TF ( r , ^ 1 i a ) >^ H T Y ^^ M ? ) , T K i- ■^ H ( i:! J , r Iv f- I D N I J ) 
W-J ITF( r , H iO )r;wTYPi { i ) , T k F ■ W < .3 ) , T,- F I DN ( J J 
'^^■■'tTl■"(T^'■>lJG)-'^'^Y^'^(^l,T^<F-', iJrtCtj.rKFIDNtJ) 
C 'INTI NUF 



■TYFf, ss It- m; Plants 

IF ( MJ-IPLT.F J.O) GU lU us 
^'1 11'^ J = l,NU.ifLT 

■!■? ITPtTi'JlJrijvt-TYPt I 1) li'LT-if. -i( 1) .PLTIOM J) 
.J'-MT'-: ( T , ni" J-''. kTYPl ( ^ > ,PLT-('JW{ ,' I ,PLTIDn( J ) 
J-' IT^(Ti^Uir. JHiHTYft ( 3),"LT-< inl M.PlTIONCJ) 

WO I Ti" t T ,'-nio jkHTYPt t n ,PL T^')^(t ) ,plt:on( J » 

;c (NRj. Si^C.t C .0) GO TO 1 10 

m 1^7 K = ] ,;\^t Si-C 

weiTt(T,^U^n),^wTYPM,^)i*'LT«!i;H(5),PLTlL)N{Jl,K 

C ^'^ N T I N U f 

F D ^ f^ AT ( 1 X , A ? , 1 X , A 't , I J , ! 1 ) 

■n I'tO J = 1 tNU-Lt-L 

w*<IT-":(T,'>liO)-;i^TYP[(l)iLfL'^iXl».i-FLlLN(J) 
W^IT!"<T,'nin)i'WTYPL(^»,LFL'(L;^(^l,LFLlJN(Jl 
MWlT^(T,U30>^H^YPE(Jt♦LFL'"Tw(3),L^LIONlJJ 
n^T [NOE 



BYPASS IF NO >^tS()UkCfcS 

IF ( NRT SkC.F J.O) CO TH 1 6 ■ } 
TO l-?*^ J^LN-^fStfC 
N r K T = i-J U ". ,1 K T ( J ) 
n n 1 '1 K = 1 , N ,1 -^ T 

w '^ I Tt I T , 'J 1 ') I ^ -- T Y P M I ) , -K. T K ',n ( i I , 1 ^ T I N ( J , K ) 
•11* ITt ( T ,-»l-50 )^HTYPt ( ^( ,'1KT'<'}W( ,1 ) , IKIIUNI J,K ) 
CO^TIN'Jl 
Fn«MftT<U,'V^,U,A'3,in 

FOrtiiAT ( IX , A^ , IX, Ao ) 
HP I TF (T, 'yl 70) -^^TYPU^J ,LMTvqH( i » 
i^K ITF( T,'M 7CtRHTYVE I ^) , L H T i^.li W ( (- ) 
wi< ITF ( T, ^*170 ) ■<HT YPt ( ^) ,Lf^Ti^iJW( j ) 
■*K ITFf TtS'l 70)i»wTYPt ( <?» tLhTf^DHC*) 
W« ITM T,Q170 (KWTYPt ( ^> .CSTJIlwC U 
W'^ ITF ( T,^n 70)r'w7YPt ( *.> .CSTKliwf ^) 

*^«iTF(T,^n70)'<MTypt('tj.csT*^i)k(n 



0\j ^i in'^Q 

00^1 j-VGO 
OOi'l'tOOO 

uu^ I'f 100 

J0(^ I'f.^OO 
QU^ l** JuO 
OO^l't'.OO 
UO.^l't'jOO 
00^1^.600 
001 i'l fHO 
•}{j^ L'idOO 
OU^l't4 00 
0i::i '>0'J0 
0U<?1-P 100 
00^1 b^OO 
'J Oi! I -J 300 
Q U <^ 1 ■> 't t u 
O0i;l'5'>00 
0^ ItifiOO 

oo.::i*57ou 
00^'lbaOO 
0(J<? 1'j4 00 
0U2 ihOOO 
OU^'lfilOO 
OOt^lfjcfOO 
UO^ Id JUl) 

Ou^'16'jOO 

ou^itt>A;o 

00^16 700 

00^1(1*00 
OOi'l /QUO 
UO^L 71uO 
00^1 7<?(;0 
00^1 7 JOO 
OOzf 17'*00 

00^1 JbdO 
OOi'l 7/00 

oa<?i MOO 

c' I 7 4 00 
OO^ioOOO 
■jO^ib lOU 

&o^l«<^oo 
^ 1 d JOO 

00^ l^<t00 
OO^lrt-^OO 
UOi! M6G0 
uO^ In /uO 
<:? 1 ^1 1 
OOilld'JOO 
U0<?1 T*000 
i' 1 M 

OUi* 1'* JoO 
00^ t rf'.uO 



^) J 1. 
'5? 3 



^10 



^l-^ 



2?0 



C 

c 
c 
c 



??^ 



?!'! 



-<^ I rr ( T,'n 70 is'-TYHt t f ),t:s T^')w 

-(tf Iir ( T,9:7C (i-wTrPt Ct » tCHGKOH 

W.?ITE(T,''^170Kt*TyPt('*»,CHGJnH 

HR ITE ( 1,9170 M.H TYPE ( <t) .ChC^Gh 



#* * 



i-^ITc LULUMNS SECTION 



( -i) 

( I ) 
( Zi 

i i) 



*^^ FTP ( T.<J?10 » 
FORf-ATCCULUnNS' 



) 



F P f A T { 't X , A ^ , r^ , I 3 , ^ X , A M , ^ X , F 12 . 6 > 



-fVPfiSS IF NU SJ'J^Cf IL' T'<ANSF£K A^^CS 

IF ( NANOST.EQ.n) GO TO ^L^ 

on ?in J=l,NANnST 
-K I TF {"[ ','i^^Oi e^^CJrPi L 
W?ITt(r»'^Z(^0)A^CTYP(i 
rt^I Tr:(T,^?30» A^CTYP( 1 
WJ I TF< T,'*? 101 A^CTYP ( 1 
w-f I TE(T,'^^ J0» AkCTYP( I 
CDNT iNUr 



,J^1GI0{ J) , JeSTIDl J) ,SkCRTw,nfJ 

,ei^iGij(jj,:it;sriDijj,TRFknw(i) 

.jKlGI'XJJtOESTlDtJJ.CSTkOwn) 

,u'<i&ii)(j),:*tLSTiL;(j»,CbTkOH(')) 

,'J^ lv.IO( J) ,OrST[!)( J» ,CMGi<OW( 3 ) 



IGILK Ji 

,[;tsT iLi 

»AHCOiT 

,AkC'jsr 



00^ 
002 
002 
00^ 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
QQ2 
002 
002 
002 
002 
002 
002 
fUNt 002 
(J J ,0Nt0Q2 



(J) 
(J I 
( J) 



lYPAbS IF NU SHU^Gt T(j f'LANl A */ C S 



IF I N andsp.c ■-;.NANii>ST ) G'j rri /.?'} 

NNOS Tl^NANUST t 1 

DO 2 20 J=NN0ST1,NANUSP 
f'<IT>^(T,^i?2 0)A-iCTYP(<^),JRIGIl)( 
W« I TF( T,9J^0) A<CTYP(2 ) .iJK IGI:j( 

■w^iTC(r,<*^jnjAkCTrp(^j,GkiGn;( 

WRITF(Tt')2jO)AyLTYP(2>,'J'*IG10( 
util T(:"(T,''>2 JO) AkCTYP (2 ) ,IH IG!0( 
CdN TINUE 



J) ,0F ST iD( J » , SK!CKrw,np 

J» ,Ufc STlu( J I , PLTt<nw( 1 ) 
J) .LitSTIDC J)*C5Tt<nw(3 J 
J J ,DcSTID( J) ,C5TRnw(5 > 
J > ,.Tt STIO t J > ,CHGkO>J( 3 ) 



, ONE 



002 

00^ 
002 
002 
002 
002 
00 2 
00 2 
002 
00 2 
002 
00 2 



I G ! ( J ) 

,Cf STIL>( J J ,UNtOO<; 

,AkC;iiT 

tAPCU^T 

,A(^COST 



(J ] 
( J J 
< J ) 



*irt>ASS IF NiJ Si'J^Cf Ti) LAN!.)FTlL a^cs 



IF { NANOSL .t U.imAnOSP ) G'] TU 2 'J ^ 

NNO SPl =NANaS? ♦ 1 

[)'} 2'iO J = SNDiPl,NflNCbL 

H'<ITFtT,^/JO»A-;CTYP{J>.[J'<IGir)t 

^9 r TF(T,9.'2.)> A^CTYPt n ,a*< IG i!j( 

w^tTF(T,c}^30)A*CTYP(J>,(]RIGI0( 
w^I T<^{T,c)? jO) A'<CTYP( n ,00 IGI J( 
W -( I r E ( T , -< r* 3 I AW C T Y P I i ) , UK I G I ( 
CQMTlNiJf 



J ) ,nfcSTiij( J ) ,SKCKPw,nK 

J) ,OtST ID( J) ,LFLKOw( L ) 
J) ,OESriO( J) tCSTknH(3 ) 
J J ,OtSTIL;( J> ,CSTW0«( ^ ) 
J) ,3ESTID( J) ,GHGr(P4( J ) 



lUNt 



G02 
002 
00 2 

00^ 
0.^ 

02 
02 
002 
002 
002 
00 2 



IGIJ( J) 

, Of STIU t J > ,ONt 002 

,A(iCnST 
,APCOST 
.AkCUS T 



(J ) 
( J ) 
( J ) 



BYPASS IF NU TKANSFt'' TC PLANT AkCS 



U02 
00 2 
002 
002 
00 2 
00 2 
002 
002 



ISi'juO 
I'-J^OO 

19 700 

i-^aco 

20000 

20 100 
202OO 
20 300 
20^100 
2 0^00 
2 0b00 

20 700 
20d00 
20^^00 
21000 
^l 100 
<^1200 
^1 300 
<il^OO 
21 '5 00 
i^U)0O 

21 700 
2 I b 
2 1'J00 
2 2 000 
2^100 
22i;0u 

22 300 
22^i)<j 
22'jOO 

<: i^bO 

^.^ 7 00 
2^d00 
2^400 
^3000 
<:!3100 
^3 2■j0 
t; 3 300 
?3'tO0 
,^3'5W0 
2 i':)Ub 
2 3 700 

^3a00 

23'yOO 
2'tOOO 
i t I 00 
2^ 200 
2** 300 

2't'toa 

2'tt>0U 
2't 700 

2'.^uO 

2*»'*00 
i^bOuO 
2t( lUU 



,' 1 '^ 



7^' 



£ 

c 

c 



<'S0 



G 
C 

t 

c 



}>hS 



2 b 



C 

c 



?'>'? 



I h" { NA'-iOTP .f: U.NAnUSl » T.O Tti l^^ 
HKlTt<T,q?^GJA«CTYP{'*l,n'<IGin(J),:)tSTlD(Ji.PLTRnw(l) 

w^iTE(T,'/<'jt<»i-JcrYP('.),iJ-i[Gi'j(j>»':)rsriuiJ).C5T't^nH(^) 

-•^ I Trt T ,^^^ JO) At^CTYt' e- ) ,1)" IGh)( J K Jf.'ST M ( J ) *ChOk^u( 3 ) 
CON T IN'JE 



HYf'ASS Ir NC T-JAJSf-FK T'J lANLPILL APCi 

If ( NANOTL .! J-NAMOTP ) jU T'J ?.\^ 
,N M T fJ I = N A N Tj T P ♦ 1 
DH -?'i'i j = nh:Hp I .r^ANDTL 
<< I TF( T ,<-*^^0 ) A-'CTrf' Ci ) 1'l^' I GIiK J) ,!)tM EfX J I tTi^PkOHC *. I 



, t)k IMl; ( J ) 
, C F S T I ij ( J ) 
,A'.C(J^T ( J I 
, At'tO'iT ( J ) 



w 



-(<[Tr(T,'j/ji.i)A^(:TYK(-3),u<iGii)(j),orsTirHj).CbT};nw(3> 

-*-!I TT (T ,'i^ iO ) A'^CTYP (*) ) ,C)-! IG !■)( J > .')i-bT KM J ) .CSTKHh C; ) 
M^ I TFf T , :»,?^Ll) AkCTYP( •? ) ,:J-( IG IU( J» tiJ^STH) t J) ,CHGt- riHI n 
COST INUF: 



f-YPASS H MU PLANT T;) I.AN-)F1lL iftCS 

1 F { NANf)r'L . t - . nani;Tl ) GU TJ ^"jt) 

NM,5TLl =NAN!)rL * 1 

on ?'30 J = NNJTL 1 iNANDPL 

Wiil TF(T ,-,?^l) i^'CTYJ'Ci ) ,;jkIGI'J( J) ,:)dSTID( J) ,PLT«rjw(', I 

W(QrTr(T,,,J,'n)A^GTYP(6»,J-{IGI0(J),aLiTIO(J),LFLKnw(lJ 
wm TF(T ,^12 lO] flVCT YF ( b J ,:}>< IG liH J ) ,0t VI ILK J J .CSTkGH ( n 

w'^rTF(T,^>^>i:i»A^rTYP<f>),L;)'<iGii)(j»tOF^Tiu(j)tCSTKni*(':,) 

Hri [ TF (T ,^? 10» AkCTYP (f I ,■)■< iGItJt J) ,iJEST 101 J) ,(.HGf<nw( 3 ) 



c^YPASS If^ rin Plant th .•^apkft AkCi 



, !, h I G I LJ ( J J 

, L) t S T I < J > 

, A p c u s r ( J i 

, Af'LiJ'jT ( J ) 

I A K c 1) J r i J > 



, ' I >> I G i ( J > 
, CtS TI'JI J ) 
. A *■ C u i T U ) 

, At-CuiT ( J » 



..] TI 



jou 



1 F ( nanop" . t' n. nanuPl ) 

NNOt'Ll=NANJPL'-l 

in z ?o J = ^■^^PL itNANDPi 

w*i r TF(T ,^'2/T » A«CT Y»^ ( 7 ) ,iH IG iiJl J J ,L)FiTIG( J 1 . PLTKOwt'. ) 

< = nFST liK J ) / lO't 
'^«lTF(T,'*,^^':>)AwCTYP(7>,.!i<IG[G(J),OFSTILi(J)*PLTi<OW('5) 



■*»ITF(T,^<fi'OJA-CTYP(n,JRlGlf)(JJ»L)FSTlL)(J»,MKTj<nw(ij 

'» / ? -i F T R "-A T ( 't X , '. Z , [ i , I J » 2 X , A *, , [ 3 , ! U i' < . H -i' . fj ) 

W'?ITriT.'J?i'T)AJCTYP(7),as!lGl[J(J)t0FSTl0lJ),CSTKn-(3) 
-(>JI TFIT.'J/" )0)ftt^CTYP( 7),jKlGrj( JI,JESTIu(J» ,CSTKnH(': ) 
WRITMT,'W>IA'^CTYP(/'t,-jHlIGllJ(J).i)tiTI0(J),CHGKQW(3l 

?7n CHNTINUF 



, •■ 1 G I < J * 

,CIP IGIlH J > 

, l;t S T I ( J ) 

t AkCUi I t J ) 
,AKC(.!ST ( J) 
,A«CUiT( J ) 



^AYPASS IF NO TKANbFtr' STATIONS 
Q3i'n F0yAT('iX,A^,I3,jX,A'j,I i,2X,FI^.bl 



0i?<^'> JOU 
,aN£ 00*^2^600 

uO^nGlOO 
GG/?/;*jJOO 
00^(^6 "J 00 
UO^J'- 7J0 

■jG^Z 70G0 
JO<^Z 71U0 
0i^<; 7^00 
0'J^^7J(jG 
'J'J2<> 7^,00 
00^/ 7dUU 
{jyili 7t>G0 
OCji^ 7 /UO 
01j,^Z7ou0 
OOi^c 7-iuO 
00^2'IOOJ 
iQNb GOa^.T luO 

u C; <^ i" .-) 3 u 

U 2 i n rj (j 
O'j/'^n 7U0 
Ou 2^.1800 
G0(^^; -WOO 

00 2 2 ■i'^: 00 

00<:;^'ii3 00 

» G N F i" i" < -4 u 

,K , OlJ^i- *bOO 

UNf oOi?^:'^ 7ou 

ilOZZ'i 'VOO 
uO^ JOOOO 

uo^ jj luO 
i* i £; 

0(? jO J 00 

ooz iCtoo 

GOi^ j.JisOO 
002 30600 
0<^ J0 7G0 
00 Z lOdOO 






T.) HI 



nn 



C 
C 
C 
C 



n 1 



r 
c 
c 
c 



31 S 
') 'i ^ 
316 



3?0 



ll'T 



C 

c 

c 
c 
c 



3 3' 



( •)-( r-AT ( ».* , A', , ! J , J « 

I F t Nij'^r-'f . ' '.. . 1) ^'i 

on 11'^ J- 1 .NiJmT*'! 

wp I Tr ( T.'M/otHDt yn, ( 1 ) , Tkf- inN( J) ,T.-.hKUH( i j , TkF iPMt J J ,[in,^ 
wy I T''< T ,' vo> wjTrruc i ) , Tkh lo-vit j» .T-^f kuw(^) , TKf-inN( J J ,l)^^ 

-"J I Tr( T ,'<3/ >l -(uTYKM 1 ) ,T^r IUN( J) , f-(f -•Uv^( t) ,TkF inN( J ) ,f MN 
mi Ti^C T- .'M^r-OI HOTYru ( 1 ) .[f. F !'):-(( J),T.<PkUH(<,),TkFinN(J) , UMN 

w'<tTf(r,'rnft»wjTYT),(i),r'<F]L;Nrj),csT^uw{n,TkFvcp(j) 

w« I Tf ( T ,M io> rty;rTiJ ( 1 J ,Tk F i;).s( J » ,csT-nrt (<_' ) , TkF y^np ( J J 
T ^ F V AL ^ T 1- ^ V C (' ( J ) ♦ T ^ F V n P ( J ) 

-•<ITr(T,'M.IQ)W'jrYTf;(l),I"H:MiJN(J»,C^Tj^'jHCj>,T&FV/iL 

r N T 1 N 'J 1-. 



"Yf*ASS If 



M ) Plants 

1 TiJ J}D 



I F ( MJ-'i^L T .(. U. ,3) r, 

DO 3^'l J = l .NUi-iML T 

Wi<I Tf ( r,'M^O) H.vTrT:j C,' I ,HLTI .)N( J J , PlTK(j-( i) , FLTrCNt J ) ,|.'Nr-. 

w-?IT((T,'H^ii)WUTYTll(^J,PLTl>'N(J),PLTK(;w(^),PLTinN(J),<JNiN 

W/ t TC( T, 1 )^n I WJTYTni / ) ,PLr I:;n( J» ifLTKQHf J J .PLTIONf J) ,ON.N 



I F ( Ni^t S-^ 

cn ut ■< 

CHNT [►'JU? 
F HJ lflT( '. 
W 1^ I T f" ( T , 
W R I T r- ( T , 
P L T V AL = f 

« -t I T I ( r , 

WH I T''( T, 

C'lN T iNUi 

on n .1 J 

'^t' J Tf ( T, 
w m T ^" ( T , 
■-( iJ t T r ( T , 
'^'< t Tf ( T, 
■w-i I T-( T, 
HiJ I Tf ( T , 
LFL VAL=1. 
•^^I Tr( T , 

C .IN T IMUI 



r.rj.:) (,j TO ^L^ 

= 1 , N I- ,' 'i k L 

■n^0( ^-UYTUf^ I ,PLT I JN( J J .PlTkOhc J , PLTIONl J) ,k,PLTKkN( J,K 

X , A <. , I i , J X 1 A ^ , 1 i , 1 L * ^' X , ^ i .^ W. ) 

'M *i')ir(uTYTi!(i'» ,PL TiotM( J) ,t:sr;-;)w< d ,PLTvrp(j> 

■»,Un)WjTrT!;(?>,PLri3N(jj,CSTrijw(/),PLTvr)P(j) 

L T V i: p ( J ) . (' L r »/ p ( J » 

TMO y -J r Y T U ( ^ ) , P L T 1 Om ( J ) , C S T r. t; ,. ( b i , PL T VA L 

n i'DwOTY ru ( ^ > iPlT I'.JN( Jl ,C •(fj-'Ohl 1) ,PL TVCP ( J ) 

n ]n) ,(:,rYT:j( ._' ; ,PL M.jN( J I ,cHC''UH(i; » ,HLT/n" ( J ) 

^ 1 . nij.-ilFL 

'■*3^(l) u.JTYrjf J) ,LFL I jN( J) ,LFLwUh( L ) ,LFLinN( J y,L,'NH 
>.).^'U H JTT FU ( n ,lF L 10N( J J ,Lf^ LKUH</ I ,LFl10N( J ) ,riNN 

'JK^'i ) w jTVTiX n ,Lf Ll'JN( J ),LFL":UH( J) .L^LII^'-H J ) ,;iNU 

■njFijHJlYTill 3J,LFLIUN(JJ iLlIkJ^CUtUNL 
rni"') .^iJl YTu M > .LFL i)N( J) ,Ci T^rjHl I ) .LFLVCP ( J ) 
M » n ) ^*. TY Ttl ( U , LF L 1 iJi^i < J ) , C^ T MJH ( ^ » , LF LVnO t J ) 

f L VCP ( J) »LF LV:)P( J) 

'M JO) wurYT.,M J ) ,^f L liJNlJ ) iCil^U^* 1 '3) »LFlv AL 



riYPASS IF NO NrS'llJriCt y^"Cl)VF^Y 



IF (NRFSSSC.FO.ai Gil 
0'"" 3<i'i J= 1 ,NU f s^ C 

D n 3 <i') K = 1 , N I-. ^ T - J 



T'.i <»'n 



0^ JO -voo 
002 31 000 
002 3 1100 

ooi a ^00 

00^; J i 3 00 
OO^Jl'tOO 
1)02 JlbOO 
002 31600 
002 31 700 
00^ jJidUO 
u0^3i';»00 
OO2j^00O 
00232 100 
002 i<;200 
02 32 300 
002Ji"f(jO 
002 3^ 'jOO 
00232600 

00 2 32 a 00 
00232'VOO 
00^3 3000 
■j0^3j1uO 
002 3 3 200 
00233300 
00^3 3*100 
OO2 3 3t)00 
02 i j<jOO 
»u02 JJ /OO 
oOi? j jrtOO 
002 J 3 400 
00 2 S'tOuu 
002 iHlOO 
0*:: j't^UU 
uOi! J't 3 00 
002 3*1 '♦JO 
02 J^-jOO 
0023*1600 
002 J^t /OO 
O023<td00 
002 J'.'K'O 
02 i'jOOO 
0023:»100 
002 3t>20u 
00^35300 
02 J'^'tOO 
02 i^'JuO 
002 3^000 
0O23!3 /OO 
002 3'>tiOO 
00 2 J t)'* 00 
OO2 3fj0uO 
0023&100 
OG23ft200 
0^36 JOO 
U0 2 3o^00 
02 Jts-^OO 






'.on 



'i 1 



C 



A 15 



'.^O 






w ? I T ! ( T , -M ^ '^ ) H 'J T T T G ( ** > , 1 »' T ! (.)N ( J , «. ) , - ^ T W. u H < 1 J » "IK T I nrU J * l< ) » >J.>t N 
w^ITMT,'M')-))-iijrYTn(^»,'1<Tli;N(J*i<l,l"'KTi<L;w(P),f-KTlCN(J,t<JiOr'tt 

WJIT'(T,MMj)i'(JTYT.J('*>,MKTII)N(J,<J,C'irKLH{')),PKlCrTtJ,K) 
-Jv^I TFcr,'nfi.:i)-'wTYTlJ(^) ,'1kTIL)N( J^K l ,CHGkUW('*) ,P.iICf Tt J,K) 
C'lMTlNlJt-" ^ 

F 1 ^ r AT ( 't X , ,*. ^ , 1 1 « 3 X , A ') , 1 1 , ^' X , t I ? . fi > 
F i I 3 " A T ( <t * . ►'. 't 1 I J 1 -J X , A ;-, , i? X , h 1 (^ , fi I 

*** -Htrt; ifw^tK CAWD AT -^tClNNilNG UF iNfLGL''. VfrPlAfcLtS 

* * * C H A M G F u' ti Y L J t t I 

C')NT I'^IJF 

F n-c -AT ( <.X ,*,Hn»"LT AS ,<*< ,dH"f A'^XE«". I /* W)H"I NTUt^G*') 



i^-VPASS IF N.) T-iANSFFK "iTATlLlNS 

I F ( NU-^T^F ,t J.'U OH T!) Hl^ 

O'l 'in J-l,NU-lTkF 

H^ITr<T,'>.lf'l.)JtLMS(l)iT-<Fr)N(jJ,T-?FKUh(i?l,TKFirj'^(J),T)-FLLT(JJ 

WWlTr(T,'Ji^ll:)'LTAS(lJ.T";F[jMlJ),r«Fr.'Gf(J»tTKFinN(J),TF't'JLT(jr 

w ^ I T F ( T , ' M U } U :.. L T A b ( 1 ) . T >< F r) N ( J ) ♦ L -^ F ^ U h ( <- ) , U N L 

iJ< I Tt < T ,'M n );;' LTAS ( 1 I TTi-'F K)N( J > ,CST-r;w( 1 ) ,TwFFCP ( J » 

w^ I TF{ T, n U )J* CTAS ( 1 * .r^f 1()N< J I ,CST"'lw( ^ ) , TkFFOP I J > 

T'^FFAL^T-'FFCPC J)'-T-'FF.)P( J» 

w w I T r ( T , ^ i J 1 ) I.) ( L T A S < 1 ) , T r<' F I N ( J » , C S T ^' .It- ( ■> ) , T ^ F F A L 

C-1M T [NIJC 

F <1 (J "^ T ( 't X , .". ^ , I _i , J X , A ■:! , I J t .' X » F 1 r> , L I 
F n ^1 « A T ( ^ X , A 't , li t J X , A 4 , i" X , F I ? . I ) 



t^ypASS IF Ni) Plants 

I F ( NU-i^L T .r. C. r i GU TG ^ ^^ S 

.) J ^^'"1 J - 1 , NUHHL T 

HyITf(T,■Hc'l>DiLTAi,(^),PLT[O.N^JJ,^'Lnv^J>'(^),PLTI^N(J),HL^LLMJ) 

WPI TF(T,-*3.''l »r,f LIAS ( ^ t ,PLTI "tN( J) ,PlTk;)K{ jj) ,PLT ICJI J I ,Pl TUlT t J J 

w^ I TF(T ,'OiL tn^'LTAS ( <' » ,PLT I ;)N( J) ^LTlKiim J ) ,(1NE 

wu'ITF{T,'M3 1);)'LTAi(^)tPLTr)MJ)-.r,STKL!Hli),PLTFCf(JI 

WvMT!(T,'MJll!)'LTAS(^),PLTI'JN(JI,CSrF'OH(.;)tPLTF!)tMJ) 

t'LTFAL = PLTFCPiJl*PLTFJFlJ) 

wt.' [ Tf ( T.'H U )'}t L TA^: (i I ,PLT lUNl J» ,CSTh^'.jH( t)» t PL TrAL 

-•■■^ I TH T ,'M 31 )!jFLTAS ( ^ I . P L T ION ( J J . CH{ja(J i ( 1. ) ,PlTFCP ( J > 

'^■JITF(T,'n■JL)utLTAS(^^.^'LTI!;N(Jl,CHCKUH^^^,pLTF^p(Ji 

r n N T ! N u h 

»*4 iAY^f H-'!TF HAt^'F-* CAi-^O AT L'NO OF iNTEGf^- VAI^IAHLFS 

*** Th[S PA^T DELtTt'J riY LJ<>. ) 

CHNT INUF 

F !)RMAT < 'i < t*iH[:r L T At , '*X , ri^"rlA JKE ^ " , 1 /X , 1H" ISTLND") 

D'l ** 3u J = i.NiJ-!Lt-L 

WWITt (T.M,^l).1FLTA^( 3»,LFLlON(J>,LFLKUKtc') ,LFL:nM(Jl,LFLLLT(J» 

W<IT£(T,'/i^l)OrLTAb(3),LFLIJN(J),LFL«i}h(3),LFLinN(J),LFLULTlJ) 

WRI TF(T, njlJJ'iLTAS* 3)»LFL I'jN(JI,LlT><Ow(^).UNt 

■W'^ITF(T,'yJ31)')tLTAS<3).LFL!:iN(JJ,CSTKLlH(L),LFLFCPfJ> 



OOi! 3t. ?U<J 
■)D/ JodOD 
■J i? 3 h '^ wO 
UU^ 3/0 00 
0^-3 7100 
uOif 3/^00 
00^ 3 /30U 
'JO.-'J f^OO 
'J /* J ? -5 00 
'JO if 3 /nOO 

uOd i7 -lOO 

00^ Jtt 100 

00^ 3^dO'J 
0C^3(i iOO 

ao^ 3^^100 

OOZ 3'1'ivjO 
uOi' 3.1 tjOU 
00<'Ji 7 0U 
00i'3»«00 

0^ r^ooo 

ijG^i f 100 
'J ^ 1 y i' 
OOif 3-^ 3 0G 
uOi* A-t'fO'} 

■J0<i 3:^ t.OU 

uO^ IT /vjO 
dU^ 3 *dO0 
0^:' 3 y yOO 
OO.^'iOOOO 

uo^'tu lao 

U0^'fj<!'00 
004?'* ■ ) 3 iJ 
uU^'.'J'tOO 

uOi:'iu'>oo 

00ii'»'J()00 
00 ^'t 'J /uO 
Ou ^^0 oOU 

00.^ HlOuu 
00^^,1 100 

Ou^**! 300 
00^ "1 I'ti/O 

<f 'f 1 5 u 

OOii^'flhOO 
U04"tl 7UQ 
uOc^**! duw 
00<::'tl >U0 
OO^^c' UOo 



c 
c 
c 
c 
c 
c 
c 
c 



w«IT?(T,4J3l)0^LTAS(^^^LFLI:}N(J^,csTKQwl^),L^■LFn^'^Jl 

LPLFAL=LrLfC^'(J»»LFLI-UP(J> 

Hy!FTf(T,;j31)lJtLTAS<J),LFLIi3N(J),r. STKUrt(^),LFLFAL 

ABO CONTINUE 

*** ""AYHf HRlTk TiAHKhK IMi-D AT tSO U(- iNTtGEf V4KlAPLtS 

»** r.HlS PA^T CHANG fD HY LJ (tJt NUT Nt£DtD FGf-' CUC 



»»<t WUITf "(H*) SfCT[GN ***«»»v**»»**<ip**»<"«***»«»««»«««<i««« 

W R I T f ( T , 9 •) 1 ) 
'>5 10 f []^MAT ( "f MS" I 

V5?0 Fnrfr4T(4/,AH,^X, At), I J,i?X»F 12, n 
<?^10 Fni^,'-AT('.X,Ar^,^y,A'3,Ii,^A,Fi2.l) 
9 5'. n F'H'^ftr('iy,fl8iZx,Aat<'Jf,FLZ.l> 

on "jio J=l,NUrt5^'C 

w-<I TF< ^1'i'i^0lRHSn^f^{ i ) ,s^Ckr;w,svClL^N( j > tSi^CTOT ( J > 

510 CnNTlNIJt 



c 
c 

c 
c 



'iYPASS [f NH WFSUU-'CF PfC^JVLfY 

IF ( N:^f S^CE J.O > C:) TO ^^^ 
on 'i^'O J=l,NWi"SkC 

Ni^'<T»J=NU«MK T( J) 

DG -J?'} K = l,N,-iKTkJ 

H '■^ I T n T , ';) "j J 1 :■< Hi N a .1 ( II , .i c, T ^■. J w ( ^ 1 , i r^ I 1 M J , K ) , D t f a ^. D ( J , k ) 
')?0 COi^TlNUF 
^Z-^ -■< I TF( T, 45/,ri) t;f^5f^,Art( ^ ) ,liTk!)w( 1) ,LT(jlFL 

-^=^1 r[(T,-^S'.n)yHS''4Ari( 1 ),LMTkJW(^M fLNU-^Tk 

W-^ I TEC r,^>';'fO)(<MSNA'^ ( 1 ) ,L<1TR>;|^( 3) ,LNUrPL 

«' R I T F ( T , '/ *> 't il t >< ^ S 1^ A .1 ( 1 ) , L 1 T •' ' i W ( <. ) , L .-M U hL t 

H-!I TF( T.->*7'iiJ)HHSNA(-t( 1 ) ,CST'^nw( 1 ( tLCAf-TL 



W^ETF Km:) Kij- CfiANGt rtuws 



on "^ If" J- 1 .NuiS-C 
'>10 'JW[Tf(T,'»*>('0)''HSNAn(/t,SRC'^n'i\SKCIJNtJI»Si^CTaT(J> 



:JY."ASS IF N'T .^ESfiiJ'^Ct "!EC:)V<:kY 

[F ( Npf S'<C.L'J.a) GU Tf) 5-30 
D 1 'i 'rO J = 1 , N r' ! S >^ C 
^1< Tf-' J=«Stj,-'.''K T ( J ) 

WRITF(T,'):iiOl'^MbNA,-i(M,f1KT'<lJW(^),,lKnDN<J»K»,UF«AND(J,Kj 
*i^0 C IN T iNUr 
5 51) JS I TF( T , #'>f 0)«HSNAf ( i, » (L'^T'^.lrtC 1 I ,LT{,LFL 

« *^ I T F ( T , "y Tt f) ) K M ■! N A iM ( >, ) , C S T ■■^ ■; ■< ( II , L C A P F L 



00*^'.^ JGQ 

0U2't<^ fJUO 

002'«3000 
OOJtJ lUO 

0O2't3't00 
uO«::'.i50U 

0^*1 Id 00 
00^<^'^0■JO 

oo^A't iGo 

002^*1 '>00 

OU(di*t buO 
002<t'.7ja 

00 / A iff) 00 
30^'f'tvQO 
OOZ't'sOOO 
O02'»blUU 

00<?*.t) iuO 

OOi!'. 'j'sOU 
00 2^.^6 GO 
OO^'t-j 700 
OO^'.bbOO 
00^'OVOO 

Ou<f <t6'»G0 

OOif'ih 70Q 

00 Z 'lb duo 

00^! 'I 7000 

004^'* /loo 

U0^'.7^00 

00 2*. ?3'jO 

oo^'t i"toa 

00 i^*! 75 00 
U02s 7')00 
00^*. ^7jO 
00i!<t7ciGU 
00^'t ^^00 



H»l TF( T,'?M3» 
T6 10 F.m f-ATI "liOUNOS") 



i«S«<ii>i>(i«««1[<.<>»<:«<r«*»? 



c 

I 

c 

G 
C 
C 
C 



'i^?n F^'^^■AT^U,Ai!,lx,/^a,^x,ft'^,iJ,i«,Fl.'.U 



•iYi^rtS^ U isil r><ANSff« STATIUNS 
IF { NUTwt . = C.O) OC in fjl-) 

ST.MJ=T-;STAT( J)*l 

610 W<ITF{T,'M;/'j)|:xoP(STATJ>,BNiJNA«,Otf_TAS(i),ThFION(J(,F>t;»'vlbTATJ) 



C 
C 

c 
c 



'.IS 



^?0 
6 3T 



"YPAS-i IF NLI PLANTS 

I c ( Nij^iPL T .[ J. J) t.0 TU ^^"5 

STATJ'-'i.^TATI J)*l 

^" [ TE( T .'»^^0)f XUP I S TAT J> , ciNONAi-tDr lTAS (^ ) ,PLTION( J ) ,f ><jtJ (/(STaT J) 

fin 6 I'J J= 1 t NU'i^Ll-L. 

STAT J^LF S TAT( J) + L 

^m TF( T, >n?0)FxutMSTATJ) ,riNDNAr,i)hL TAS( 3» ,LFLIDN( J} ,F xui'^CiTAT J) 



t-'il Tf ( T ,'*?00) 
4700 F IH "^AT ( "' N'DA T A" J 

f^NHFIL- T 
W I Tft -(,'*.-iOO) 
Q8 00 F fH? ,^AT( "-", " 
PFTUfJN 
f40 



w*- I TL ru T (■ JLf CUrPLt TC J." ) 



00^'tr! 300 

UO.^'iO 700 
OU^'ft! VOO 

002'. ^^.Ou 
OOZ't t 700 
OiiZh /bOO 

00i?i»O0OO 
OvJ^bC iOO 

0,^b02UO 
00<!!>0 3OU 

oo^'jubja 
uu<^:>OoOU 
00<? '30700 
OO^bOdOO 

OO^tiiCOO 
002^1 lUO 

00^*>l 100 
ObiiJblfOO 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 



c 
c 
c 



r 
c 

c 

c 
c 

c 

c 
c 

c 



c 

c 
c 



4 

» THIS RUUTiNt" w<ITtS T'J u '^ V I C t U ALL H A K At^f Tf: i' S AnJ NAnti <' 

* wEi;J In hy The i'.lM J ANt) SfTuP PROGRAn AMD MfinEU FUK *■ 

* THf Output RiiPOt^r <> 

^t'* INITIAL lU Cl Ar^ AT! ON i]f L /A»<lA4Ltb AS REAL 

I'IPLlCITRtALCL* 

»*« Ot CLA^ ATI UN nf- VA-^lAi-LfV f :)■< NAMES ANl> 

TITLES 
RF AL ASTS 'bK 

REAL TITLE,fU'^Nti1,vfC'^A.lfS<<CNAM,T'/fNA^',f'LTNAM, 
I LFLN A *i ,«■ SCNAii , ."IK TNA.I 

iNTf^GfK K,'-'.T,0 

iNTFC.f^R TijTtk-iiEKFLAG.KUNYRSt 
I ■iUN'JfGtKUNfNO,lNRtPti;uTRtP.TW»<ITf,OWWlTF,LAND(,D. 

I Sv'CIi)<h,T.;FIUN,PLTI0n,lFLIDN,mkT1DN, 

J OHlGI[),l)tSTiO,TRSTAT,PLSTAT,LFSTAT,STATj 

**« GENES'AL ClJniL'N hLCClK 

Cn?«r-'1N/Gt-. NuAT/ASTKS'<(l'>)iTITLt(*>>»KUNNAM<D>, 

i LTOLFLiLNUMT'i.LNUilPLiLNUr-LF.LCAPTL.'^ATr. 

■? R . W , T , l) , T a T F R •< , t K F L -"^ G t L A T , 

? "!UNHEb,RUNt NOiHUNrRS t IrnKt P.nuTREP, Twi- I Tt ,;JhkI TE , 

** LAKDCL) tNUnvt C »NUtS.RCt NMiT RF , NU.'IPL T , NUf:Lf L iNRt SkC* 

!* NUIPK T ( V J ^Ni-AOt ,L IiSPAG 

•*• vrt'lCLtS CUn^J.N '.^LUC-L 

C n (^ HH N / V E C 3 A T / V C C M A 'I ( d ) , C O' S T TH ( "i > 

*** SOURCES CO^tfL'N 'iLCJC-t 

C>1 -"nN/S^C'TA T/S>-'CNA-(^'.J()} , S-ttTOT (^00) , ALHAST ,Si^„ iL;Nl <?i.'U» 

*«* TRANS'^E'< STATIONS CUMMUK '^LOCk 

Cni-mN/TKFOAT/TRf NAI- (t' )» ,Ti?FLLT{ ^ J»,TRFUlT 1^0), 



rRFFCP(<fO),rwFyC>'(^ll,TR>FUP(20),TRFVi:Pj^U),. 
T -I F I J N ( / J I , T ^ S T f T ( <> ,) I 



**« C;3:^hPN Fi'k PLANTS 



Cn-t'nN/PLTnJT/PLTNA,-(^0),PLTLLT(.'u),PLTuLTt^01. 
1 PLTi-CP(.^n,PLTVtP(^OI,FLTFJP(^U),PLTv(iPt^'J», 

i PLTKE.P ( ^Oy ,^'LTRRN( ^0,'M , 

J PLTION(<?J) ,PLSTAr(^Oj 



«« » 



Cn''-'nN filR LANDFILLS 



OU^^lbOO 


00^^1600 


OOd^l 7uO 


Ou<;'>l(lUO 


OO^bl^OO 


00*:: b^OOO 


oo^'><; iuo 


oo*?^^^?uo 


JOi!b^ JOO 


OO^b^'iJO 


OO^^c'bUO 


UO^'^^GOO 


UO^b^ ?00 


'jo^'?£?«oa 


OOl'j^ mjO 


■j0<?5 JOOO 


0<?5 JldO 


Ou^b j^UO 


002 tji 3 JO 


OO^bj'fOO 


UU^b J tiUO 


OOi^b 3600 


OO^bi /Ou 


uO<? -jJ ouO 


OO^iJ^OO 


00*?^'tOOO 


OO^b^ 100 


002!; '.^OO 


002b4 300 


00 <?';'.'. 00 


OOi^-jfjuO 


J02^'.<>00 


00^'>'t /OO 


OO^'j'.dOO 


OO^'j't^uO 


UU/^btiOOO 


2 *) *) 1 00 


02-5 bi'OU 


0025!? JOO 


OO^^b'tOO 


00 2bt)t)uO 


U u i^ !3 !) h u u 


00 2*3!; /OO 


002!)!jrtou 


U02b'>S*00 


Ou2!)t) UUO 


00 2 "Jh lOU 


002b<,200 


0u2^f) JOO 


0()2'5ti^OO 


0O2'5b'>00 


'J0 2:>b6 0O 


00Z-3h7 00 


002')bb00 


2 5 6 '^ U 


002t) ?0u0 


002^ nov 



c 
c 



c 
c 
c 



G 

f 

c 
c 
c 
c 
c 



c 
c 
c 
c 

r 
c 



C0l"'•^N/LFLJAT/L^LNA:i(i?i)^,L^^LLLTl^'O),LFLULT(^O», 

1 LFLFCf' C20J ,LFLVCP« ^ > ,Lf-LFOP( ^0) ,LFLVOP<.^0) , 

2 LFL I!)N( ^0) ,LKbTAT(?OJ 

*«* Cnnf-CN F Jk riAhKErS 

**« COMMniM f-iJK TkANSPOhlTATinN A:<C'> 

CT'-'iCN/LNKOA I/AkCUST (SOOO) fflj^IGrjC^lOO) ,JfcSr I0( 5OO0) , 
1 IHANUST ,NANOSP tNAND'iL»NANDTi^ , NANDTL »NAhL,PL ,NANU»>M 

IF ( lN;^f P .GT . I CALL HtrADti<:<'M 

WPITE A NO PHk-AT CU>.tb WlT^'CUr'-'tNT iAWs A»<t FfJk FQ^'-ATTtf: 
FIlF n - Tf'ANSFfk. THIS hIlL bt UStO HHLm IHc StTUP PytiG^AM 1 !> 
oijN IN I'^« ANi> rnf uATA TKANSFtVEO VIA ^y TRACK TAPE. IN THIS 

INSTANCt- ftFnOVf- C"S AND THF NlJflFOPnATEO ktAOS. 



WR I 

MR I 



TF 
TF 



(0. 



1 
2 
3 

5 






ITE 
ITF 



(0 
(0 

m 



iuoo» 

T FTL 

^^ U N ^ F 

NlJMVt" 
KAft , 

VEt I 

S-CI 

,101 

.ion 

,1010 



title , ^UNNAf^ f 
h .f'UNNAn, 
G,«UNtNOtfJUT«rP» 
C,NUr(Sf^C,MU:iTKF ,NUrtOL TiNUnLFL^NKESoC^NUrrtKr, 



H^ I Tf (! 



CI 

c 

CI 

c 
c 

CI 
CI 

c 



FN 

hRI 

riQ FOh> 

000 F'lR 

1 
OlO FOR 

1 S 

2 S 
020 FOS! 
010 F'.lk 

1 6 
RET 
E NU 



* 1030 

l-ilGI 

"*•? lit (0 ) Tt F 

HRITf (0» PLT 

■^9 ITE (01 LFl 

MSC 

WQITt (U) NAN 

U^lGl 

D 



t)H, Vt CNAMiCOSTlH, 

DN , 5»i C.NAn , AL -^ AST 

J IRE lD[S,T»<FNAn,r-<Ff:CH*Tt'e vCP,T«FFnP,Tl-F¥ijP 
) PLTlJN,?LTNA«,PLrt:CP,PLTvC*'»PLTFnP,PLTv;jP 
) LFLIiJN,LELNAn,LFLFCP,LFLVCP,LFLFnP,LELVnP, 

ki(,NA,-1,.>1KT10N,M.<TNAM,PKlCET 
» NANLnT»NAND5P.NANaSL,NAhDTP,NANnTL,N/NrPL,NflNCP1, 
D,Ut STIO,Ai<CiJST 

IDN,Ti<FNAM,T>^Fi'CP,T'<FVCP,TKFFUP,T'-'Fvnp 
IuN,PLTNA,"l,PLT^CP,PLrvCP,PLTFUP,PLTVnP 
ECN,LFLNA^i,LfL«-C^',LFLVCH,LFLFOP,LFLVr)P, 
i>iAr,riKT IDS,l1rt,TNA^,P'<lCrT 

OST,NA*JDSP.NANDSL,NANOTP,Nfirv|DTL,NANCPL,NANaPMt 
OtUf. Sr IDiAHCiJS T 



OFILE 
TF(W,^ 
MAT( "- 
MAT ( ^ 
201 1 
rtAT < I 
F lO.S/ 
FlO.'j/ 
HAT ii 
MAT « 7 
FllO) 
URN 



00 > 

t* I* 

A ^^ / ■? A 
OA-I/ ) 
I 'i / I 
«F 10. 
«F 10. 
A9/^( 
I^/'>2 



Wt ITE L'F F ILE D CQi^PLt TtO.'M 

e/<n*>/9[S/FlO.'>/'*AH/SF10.^/lJ(l',15/),^I*)/ 

,F L2.01 

0I5/10AH/LQart/^F12,l./f)Fi2.1/6H2.1/2Fl2.1/ 

'S/'tFlO.'j/HFlO.l/HFlO.l/HFlO.l/ 

■j/'tf 10.^1 

U^/),^C^Ad/),9(')Fl'>.^/'iFlb,',/)) 

U^I')/),'lIb/f,2(lf.I^/»,f;It)/l'.2(/Fll.^/), 



002'7;20G 
002t) ?iOO 
0U2'5 ^'lOO 
U02'd7')'jO 
002'5?b00 
002b /700 
002')7bOu 
002t)74u0 
OO^'j-JOOO 
2 *j d 1 U 
0025B200 
002 -JO JUG 
002bo',U0 
002ba'>00 
D025<i6(j0 
00 2^^ ?00 
002'xd tl.jO 
00 2 is -^UO 
002i^'^0u0 
002t> J lOU 
002^^ 2U0 
002t>9 JuO 
002*)-><.00 
002 5VbOO 
002t)->buO 
002 5^*700 
002t>4dOO 
0G2'>>^00 
OO2t0000 
00260 100 
002^u20U 
002t0 30u 
002*^1 J^OO 
00 2DOt>00 
2^ JbOO 
00260 700 
002 60 BOO 
00260-^00 
0026iOuO 
0026UOO 
002ol200 
00261 300 

oo2ti iHoo 

002bl "juO 
0026 1600 
00 26 1700 
0O26La00 
00 26 1 ^^jU 
0026i;000 
00 262 loo 
00262 200 
00 26,.' JOG 
00262'tOO 



APPENDIX 8 



SOURCE CODE OF RWP FOR CDC 



P'JiJC-:^*- ■iS;.Pi]iT(lAPtl<?«TA*^t->.TAOtf),!)UTPUTiTAHE^)=nUTPUT) 
■^POI f- . fur. . ^0, IVHO - J^' 

« h'EPUkT GENLr'.lTt'JN - nAliM P^UOkAM 

* 



TAPtL^ = UNIT wITm T :)ATA - DATA F»nM Aft' A * 

i[-;,pfs :. UNIT f UK r^l^ Pt-'GG. INPUT CAPC * 

TAPf_H = JNiT wITm ') UATA - UATA rpn*- StTUP P «' . v 
TAPfh = JNIT FGK P-^, I.^^TauT 



I N T E Cf -i P C T V P , L I N P A G 

u H A L Cj t" N N A M , f A C N A ,1 , T I T L (. i ■^ U N N A "• 

C n- f Cn / C F N/ N ■.! SU 1 T , IJ S U :i T < A » 
CnirCN /Nu.-dS/ nPAGF ,NL[N!: S,l1nP AG, 

I ^ATfc .NUrVr^S . IiNRS: P, J'JTl-tP , 

J NUlVeCiNUlSr<C,MJlTH^,NU^pLT,NUnL'^LiN'<^',N'<. tS-^Ct 

3 r<< U ,1,1 K T ( ■* ) 

fjIMMfN/HE a:.)/ T I TLf ( b J , '-^ US WA "i ( b » , k uN 'U ^ ^UNE nD , A T 

L INP AG = hL'^ 

^■3 AGf = 1 

C'.LL DATtl '.) A T I 

r \L L TF F TCh 

^ALL Ti---TCr< 

IF ( nuTQf p,ru .0) STOP 

C ALL SUM-^CP 

'jPADC^tlOC) GtNNafl,FACNA.l,FACTYP 

100 (■ ri>< •- AT ( 2AH , ft '. ) 

-T AC (■- , 10 1 ) N'JSut'. T , ( [ ;)SU>iT( ^4^ ,N- WMUS'JbT ) 

101 f- T^ MAT( Ih I*:-) 

C .^LL i)f TCrs ( GtNNA'-i 1 

GALL n»- Tt- AC(F ACNA.'i,F ACTYP ) 

]f (NiJP S»'C.GT.O) CALL MKTrJrp 

CALL TPSHIP 

ST 'IP 

t:NO 



I. 
<?. 

3. 
^. 

/. 

d. 

'y . 
Lu. 
11. 

1 J. 
I't. 
i^. 
l^j. 

la. 
14. 



^ 1, 

J 'J, 

31. 






c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



SURRCIJTINE TFfTCH 



* * 

* THIS SUB'-'OUTINE l-ETCHES T ri<c OATA PREPARED IN THF EOIT-AND- * 

* SETUP pt^nt^v^AM (THE FILE PkEPARfD 4Y DSfcTUP) AND PY THE IILP _*_ 

* PACK ICE (f at'TF ILT: ) . * 



I N T E CE R L , ."' t N » P . L I N P A G 

INTEGER kNA-l(h) 

lNTFf;eR TYPE (bO) ,•<, T.DTQRlfiin.DESTlU^OUTRtP 

DIIENSION w(7),IPM(n,lW<7)»|PAWT5(<^) 

EQUIVALENCE (IH(l),w(l)J 

CniHON/NUn^S/NPAGt^NLlMES^LlNPAGi 
I ..^ATl .NUHYKS, lN»<EP.aUT*<EP, 

,2;. NUHVEC,NUMSkC.NUrT'<F,NUnPLTtNLiMLFL»NRh»N»tSke* 

3 ivuniiKT<4) 

Cn»-n3N/A«COAT/AkCJST('JO0O),Ui^lGICJ^0OO),0ESTID(5OOO)i 
1 NANOST,NANDSP..SANDSL*N*NOTP,NANDTL»NANOPL,NANDPMtNflNDHL 

CTif-GN/iMJT/A'vCHSTtbUOOJ.NSK ?0.3) t-^fKBH *OELTA(2 0,3) ,Ct.iSTt6) ,01SC 

HATA i^tHAHt 11 /"CAPI TALC'V t 
1 «NA'ir2I/"nPESATNG"/.KNA.'i(jl/"T»ASSPKT"/ikNArH5)/"(<£Vf NUtS'V, 

? :<N4i(f,)/"N£TC(]5T "/ , i<n AH ( <t ) / " TOTCUSTS "/ 

NA*4CWT=NANDPM*NUnT«F 



tNANDnT *NUMPL X 
^NAnO-'P ♦N'UrLFL 



NAN LIHP ■ 

NAS^wL^ 

NR "^ '0 

IF( NkES>^C.€U.O» CU TO L07 

OniCO Nk = l,NP. FS"IC 

100 NPi- =NRM*NUMf K T (NR ) 
107 NAND'^H = NflNOHL+N'^fl 

NANODT^^lAMDwM^NUMTRF 
MANCDP'NANnnT+NU^'PLT 
n4'^JGDL = I')An:)Dp*N0MLFL 
VEWIND 1/ 

sEADd^J (w(<) tK = l, 7) 
[) 10 J = s , 7 
IPl ( J)='V' 

IF ( h(J) .LT.O. 1 IP-K J )='"1" 
X JI *'=H{ J» 
|# W ( J I=AHS( X JIH) 

IF < OU T K e P . E . ^ ) 
lHRITF(6,10ll(H(K),K=l,'il,(IPn(K),WtK)»r<.='t?»7) 

101 FG.^fAT('»AiO,Z(Al.F'y.3)*Al,Fl->.'^) 
REA^. (12) (H(KI,K = 1,7) 

IPl ( JI «"P" 

IF( «f J) .LT.O, ) It^ri( J )=".i" 
X JI r-w( J» 
tKf H ( J )-A><S{ X jin J 

NRn>iS=iwib) ^ 



57. 

39. 

'tO. 

*»! . 

<!<;. 

:■**»■» 
*^. 

«>♦ 

&Q, 

5Z. 
53. 
&*• 
9S». 
^«- 

bO. 
61. 
62. 
6). 
b<i. 
66. 
67, 
6d. 
6<*. 
70, 
71. 
7d, 
73. 
7<t. 
7^. 
7b. 
77. 
78, 
79. 
SO. 

i2. 

B b , 
86* 
B7, 
8d» 

69. 
90. 



c 
c 
c 
c 



NcnLS=i ^ ( n ''!•• 
IF « cu T K t p . e u , 2 ) 

Iwi^I TFC tlO^M H(K, ) ,K-1 ,31 1 ( I'^rfCK > ,W(K ) ,K*'».5 J , ( 1 M(K ) ,K»f,,7) 9i^. 

102 HiJi^fiATf ;iAla,^( AL,F'). 3 » t^I LO) '^3. 

I F ( NRO-S.Lt .0 JGO TU 300 '^'*' 

GFT THf i/QH AfsU COLUrtN StCTIONS '^h. 

nAX'?nw«f*iNKOH*'i 100. 

C Q S T ( 't ) - . 1 1- • 

DT ^nO I=l,SWGHS 102. 

t^FftCa,') (M(K ) ,K = L,/?> 103« 

!F« [•■( 1 ) .[ 'J,'ntENOti")GQ TO 999 iO<t. 

IF ( I .LT.MlN*'G'<.ak. I .GT .iAX^UHj GJ; Tu 200 lOt?. 

rjQ^'iC j = l,S 1L)6. 

I F ( J.LT . JJ JP= J 107. 

!F( J.GT. 3 » JM = J*l 10«. 

IF( Ih(1 ».f -J.-^NAfK jP ) ) GU TU 2 'i I 

^'tO CQNTlNUt 11*J« 

^'.icnsT(jp) = h(?) 111. 

IF(Ji'.Ut.3» f^LlSTC *♦) -COST! *.) *CL'ST( JP t 112. 

IF(JP.FO.'j.AN0.0uTkEP.E'J.2) WKITF(6,26» kNArl(<.»iCnST(A),CaST(^» 

IF (ijUTPtP.fcC.2> HRITE(6,2f.» W ( 1) , W ( 2 ) , COS T ( J P » 

2h FTPMATf IX ,A12,2U20.M I 1 1 "> . 

200 CJNTlNUf lib. 

300 I F (NCQLS.LF.OJGU TU '^'^H 117. 

00 <.0n I = l,NCtJLS iltl* 
PEAOa? » CW(K ) ,'<=1, 2 > liV. 

1 F( [-(( I) .t 0." llfcNjli" IGU TO •^'*9 120. 
I F( I .GT.NANDPflJ GO TO 3i 12L- 
A^CHSTt 11 =H{? ) 12 2. 
GO TO ^'♦2 123. 

3S IF( I.GT.NANOH T } GO TO 3^) 1 2 <» . 

NOl F=I-NANOPM I2b. 

rtST{N0IFil>»H(2) 126. 

GOTOZ'.Z 127. 

le [F ( I .GT.NANDWP I GO TO 37 12o. 

NDI F »I-NAN[JKT id'-f, 

W5T(N0!F,2I-W(2» 13U. 

G.l TU 2*12 131. 

37 I F( I .GT.NANDWL) GO TO 3dO 132. 

NOT F =I-NANDwP 133. 

wST (NOIF, 3J >H(2) IS't. 

G0T02'»2 13:>. 

380 IF ( I .GT.NANO^-M GU TU 3H 136. 

N[}IF = I-NANDHL 137. 

WMf Ni)IF >=K( 2 » 13 a. 

GO TO 2't2 13V. 

3«1 IF( I.GT.NANODT I GO TO 39 l<tO. 

NO! F"I-NANOrf*^ I'll . 

OELTA(HDIF , 1) =t^l2 ) l'»2. 

GO TO 2'*2 1<»3. 

3<? IF( I .GT.NANOUP ) GO TU 'tO I't'*. 

N3rF«I-NAN00T !'•'). 

nELTA(NDIF»2) =W(2 1 l't6. 



«.o 



?^2 

c 
c 
c 
c 
c 

c 

C 
'.2 



q^? 



99"* 



GT TO 2*1^- 

IF( I.GT.NftNOUL) 00 TO tl 

OFLTfifNOIF^SM-l^ » 

IF (^UTRLP.tU.2 » H'<ITe(iS^ 

CONTINUt 



^61 h( 1. t ,-<2 ) 



ALL T DATA M'JH IN VECTORS. '.I MARKS 
CALCULATIONS HAY BfGiN, AS lUN(j AS 



Th£ point 
1==NCQLS AT 



AT ^■HICh 
THIS TIMfc 



GITO AZ 

IF (nuTKfcP.f U.2) 

FORfATC ","I="»lh» 
CALL PXIT 
CONT INIJF 
■iEAPtlZIO^tK,), < = !«/» 

IF< IW( l».ft)."tTENCll")GU TO 

IF (OUTWFP.t Ci.,? ) H'i I TE (f>. ■*■'?) 

FO«fAT(" END OC FiLt NOT 

CALL PXIT 

RETURN 

END 



HttI TE ( f)t'»<tl J U-^CCLS 

nCOLS = "» It.»". SHOULD tit EQUAL 



=>9^ 



( «► U " ) 



Kt.ACHt 0") 



152. 
153, 

15b. 
15b. 
157. 



IbO. 
Ibl. 
Ib2. 
16 3. 
lb*.. 

166. 
167. 
Ibb. 

169. 



c 

c 

c 
c 
e 
c 
c 
c 
c 

G 

c 

c 
c 

€ 

c 
c 
c 



c 
e 
c 



c 
c 
c 

c 
c 
c 

c 
c 
e 



c 
c 



G 
C 
f. 



SJBRQUTINf Of- ETCH 

» * 

* THIS -illUTlNL *4EA05 FK.'Jrt OTVlCf tt ALL P fl K A m E T i: P S AND NA^.fcS » 

« fkEPAKtD BY THt EDIT AND SETUP PwUOKAM AND MtDfclJ FUK * 

» THF OUTPUT t«FPOHT * 

« * 

**♦ INITIAL Of CL At' AT I ON OF L VARIAt^LtS AS WEAL. 

»*« ALL IMPLICIT I^lTtGtt^ VAKlA'lLt-S AS INTEGEC 

IIPLICIT kE AL( A-H,L»n-Z I , INTEGF^ ( I-K,rr ,N) 

«*« L>6CL A** AT lUN HF ^"ifcAL v.^^'Ia•^LMS (FCk TITLcS and 

** « N AMt S I 

REAL T^L?.wUNNA.1,V[;CNAM,St^CNAl1,T^FNA^',PLT^An, 
I LFLNAM, kSCNAM,NKT NA-- 

INTEGE'^ T ,D.K ,H,LINPAG 

INTFGEP ^UNHFG,KUNtND,lNREP,nUTkEP. 

1 VFCIDNiSKCIU-^.TKFIDN.PLTlDN.LFLlDN.MKTION, 

2 Gk IG IDiDFSTID 

«*« GFNLWAL CailMON BLOCK 

Cr!110N/M£ AO/T I TLt ( b I, kUiXNA. '!<'?),;< US b£G,KUNEND»OAT 
COI-ON/NUI-IRS/NPAGE *NL INES tLlNP AG. 

1 ;iATE .NUHYl^S, INCFP ,(lUTf<EP, 

2 NUiiVtC.NU'iSkC.NUirrtF.NUriPLT.NUnLFL.NPM.NKfcSKC, 

3 NUHMKTt'M 

*♦» VEHICLES COMMON tiLUCK 

C0Mf1ON/VtCl)AT/VECNAM(8)»CQSTTH(a>,VFtIDN 

♦ •♦ SOURCES COrlMIJN -JlUCK 

Cnt'MTN/S'cCDAT/SHCNAnC^OO) ,SKCT0T(Z00).SkCIDN(20n),ALV<AST 

**♦ FACILITIES CUMMtlN riLUCK 

C0iifnN/FACDAT/TSFNAM(2O),PLTNAri(^0»,LFLNAn(20*,T«FICN(?0l, 
1 PLTIDN(2QI,LFLION(?0),TRFFCP(^0).PLTFCP(20».LFLFCP(20), 
I TRFVCP(20),PLTVCP(.r'O),LFLVCP(/n),TkFFUP(20),PLTFnP(2C), 
i LFLFQ^-t^Ol.TKFV'OPC^OJtPLTVOPt^OHLFLVOPl^OJ 

**« cnriMON FOR MAkKETS 

COMPION/MKTOAT/kSCNAMC*) ,llKTNAh( '*» J) »flKT 1DN(9,9» ,D£M4NDC-*.9I , 
I PklCETl^.'^n 



f «« 



Cl]HMUN FOR TkANSPOkTATlUN AKCS 



1/0. 

in. 
ni, 

173. 

176. 
177. 

17a. 

179. 

IttO. 

IH 1. 

Iri2. 
IS J. 

Irt-^. 
la^. 

IttCi, 

1B7. 

Idd. 

Id y. 

WO, 

i'>i. 

142. 
l'i»J. 

I'y't. 

I'y'j. 

1^7. 

140. 

19 '^. 
2 00. 
201. 
202. 
203. 
20't. 
20t>. 
206. 
207. 
20tJ. 
20'*. 
21U. 
211. 
212. 
213. 

215. 

216. 
217. 
21fa. 
d\H, 
Zi.0. 
221. 
Zdi. 

id'*, 
11^. 
lib. 



CO'*HnN//i^CDAT/A«CUSn')000),i)iiIGIJ(5 000J tDESTIU<5000) t 
1 NAND5T,N4.SDSPtNftN05L»NANDr*'»NANDTL«NANOPLtNANDPhtNANiJhL 

P Fiji NO '^ 

READ(3) T [TLE ,>^UNNAf- , 

% RUNaEG,KUNENL)ii)UTt^tP , 

ij NU.-IVEC,NUHS)JCtNUhTfthtNUrPLT,NUMLF-"L,NkES''CtNUnnKr, 

4 VECIOIS, VECNAn,CnSTTM, 

5 SkC lDNtSkCNAf1,ALHAST 

RfADH) TSFlON.TkFNAM,Tt^FfCP,TK}^VCl',TkF(-nP,TRfvnP 
XEAD(rt) PLTlL)N,PLTNA,i,PLrECP,HLTVCP.PLTFUPiPLTVOP 
PFA[:(8) LFLlDN,LFLNAn,LFLFCPiLFLVCPiLFLFUPtLFLVOP, 

't IVSCN A-IiIKT I0N,f1KTNAM ,Pt^ IC^ T 

>tEA[)(H) MANDSr,NANDSP,NANLlSLiNANOTP,NANDTL»NAN0PL»rSANCPM, 

1 aw JGin.DE STID^A^tClJST 

NtJ«YKS=KUN£NO— ^UM'lE ',* 1 
IF (OlJTRFP.Mt .?) k^TUi^N 
WR I Tf l^» 1-001 TITLE ^-iUNNA"^. 

I '<UN^FG,kUNt NtNauTKEP, 

I NU'-V£C»NUMStiC»NUMTKF«NUMPLT*NUMLFLiNKLSPC'.NUMnKT, 

3 RATE 

V f C I IJ N 

0)HH[TE(fi,102) (VLCNA1(^»,N = i,NUf1V^C) 

(CUSTTH( I ), I = UNUlVFi:) 

0) H^iTf(b,ioi) c s-;cir;N( Nj ,N=i iNUHSRC ) 






ion 
101 
10? 

ini 



w ^ I T F ( f, , i L » 

IF ( NO.iVcC.Nt 

MRITF(S,1CJJ 

I F r N ijr*. S ^ C . N .- 
IF ( iNU-lSi^C .NL 
^ fl I T F ( 6 , I j I 
I F ( NU1TRF .Nf 
I F ( NUITkF .Mf 
I F( NUMTOF .NF 



(SKCNAh(NUN=l.NUn5RC) 



( Ti^c tDt4( N) ,N«1 ,NUf-TkF ) 
(T-fFNAII(N) ,N=LtNUr-TPF) 
(TRFFCP(N),N=1,NU1T0F»,(TPFVCP1N), 

l,NunTgF> 



0) Hkl Tl. tt>,iOi? I 

AL-tAST 

0) Wh! I TL (6, 10 1 » 

0) wkITE(6,10<?> 

i)) H<.<I Tf (6» lOi) 
I N=l,NUrTi^F),(TKFFOP<N),N=l,'«IUrTkF),(TkFVOP(N),N' 

IF( NUMPLT.NF .1)1 v-KITMhilCl) ( PL T I C N( N ) , N - 1 , NU-^PL T I 
IF ( "JUMPlT.N' .0)^K[Tf(f>,10<') (t'LTNArt<N),N = I,NUf«PLT) 

IF(N UP* PLT.NE.n) rti<ITt (^,10J) (PLTFCP(IN)fN»L.NUnPLTI»(PLTVCP(N), 
i N=l,NUhPLT»,(PLTFUPtN> ,N=l,t4UnPLT) , ( PL T V UP ( N ) , N= 1 , NurlP L T I 

IF ( NU-iLFL.N^ .0 J Hf< ITt <f>, 101 t ( LFL ICN(N) ,N = 1 ,NUMLFL » 
I F ( MJ-LFL.N^_ .0) UK I TF (fi, 10/ > ( lF L S An ( N ) , N- 1 , NU^L r L ) 
IF ( NUMLFL.Nf .0 ) KK ITf ihrlO i) ( L F L F CP ( N ) , N= 1 , NUHLf L » i ( LFL VC P < N ) , 
1 N=l,t,U'-LFL)t(LFLFOP(NI,N=i.,Nj>iL'-L)»(LFLVnP(N),Nxi.,NUP^LFL) 

IF< rMPE SPC.tC.OJ GJ T'l 2 

n 1 N"' 1 , N i< f S t* C 
NiK T='NUM1KT (N > 

1 F ( S MK T . N F . ) W m T L ( 6 » 1 1 ) 



I F ( N *"< T . N F . T ) 
IF ( N1KT.NE .Q) 
CGMT INUF 
CHN T INUF 
^RITFe^.lOlt 
H '■? I T t ( 6 , 1 I ) 
wr! I TF(*)» ir^l ) 
H {? I T E ( h , 1 J » 



rf - I T E ( 6 » 1 2 ) 
rtkl TE (6,1031 



("KT ION(N,Krl) ,Nri»l,NHKT) 
(rfKTNA'i(N,NH),Nn'l,N'^KT) 
(PKlLtT{N,NM) ,N1-1,NMKT> 



NAM0'iT,NA:N0SP.NANDSL,N/iNDTP,NANDTL,N/(riDFLiNANl)P.1 

('■VIGIO(Nli^ = l»NANDP-l) 

(nLSTI0(N),N=l,NANOPl) 

{ AkCU^ T ( N) ,iS-l ,NAN0P:1) 
Fn^»'AT<T't,c'('>Ab)/AX,Jl'»/y'<.l'il'*/'tX,F6.^» 
FO'<hflT< T^ .^■01 'r > 
F TRi-ATC TA, 1.0A" > 
F riRf AT ( TA, lOF n.^ » 

'^fiTUkN 

EK'J 



111. 

^30. 
231. 
I^l. 
ISS. 
^3*.. 

^3fj. 
^37. 

2JV. 

^'fl. 

2b2. 
25i. 

25t.. 

IhO. 

2bl. 
2f. J. 

2b5. 

db f. 
Ztiti. 
lb'->. 
Z7u. 
271. 
272. 
27 1. 
27t. 
Z7b. 
I 76. 
27 7. 
270. 
ll'i, 
2B0. 
2dl. 



e 
t 

c 
c 

G 



SU-^wnUT iNt Hf ADLKtNUME AD tNCONT ) 



^r4L TI TLt iPU'MMAh 
INTFGFP rfUNtiFG,i^UN 
COir^llN/HEAO/T I TLEl 
CTirlGN/NU-HS/NpA&t 

1 «AT 

2 NU-^ 

1 Nun 

-(.> I TF(h,'500) riTLL 
N P A G F = N H ft G f. » 1 
MiNf S = l 

I F ( NHHf AD.f iJ. I > Wk 
I F ( NOHf iO.t G, 2 » HK 

: r ( NUHfAD.ru. J I «i^ 

I F ( NnuL AD .hQ. 't ) -Jt< 
I r ( NGHF AD.FO, "5 ) hR 

IF (NTHFAn.F ■:;.*)) W 

IF ( NC T-l r . f, U . U V- n^ 

N |_ I N F ^ = ^ 
SOO K HRNAT ( "i'S'-UNTAK I 

L "HrHT SYSTFnS hl)D 
1 F ")*^rAT{ "0"."LxtCUT 

P F T'^'-AK "0","SU'inAk 

T (^!li<H6T("0","nf TAIL 

i, rnJ, MATl"n","0£ TAIL 

t, F 1 * f A T r " T' , " fi A « K E T 

h i aifi.J ("0","DL'TAI 

1 " S^IPfENTi") 
7 fOf>r-AT ( ';X," - 

SO? FO-' f AT( "0","Il>tNTI 

I "THF ^UN: ",!'», 
KFTUPN 
FNO 



E N D 1 J A T , L I N P A G 

■?) (kUNNAMCS* ,Wui^:itGiRUNFNE),DAT 

,MLlNGStL INPAG, 

F iNUi^y^'S , IMKl P,OJTPFP, • 

VtCtNU-lS-^C^NUMTRFTfxUr^PLTiNUMLFLiNUi-tNkESKCt 



,DAT,NPAGE 



1 T E ( , L ) 

I T t < f) , ^ » 

[ TE (e), J ) 

1 TE (0,4) 

I IF (6,^) 

KITE C^.b > 

I T t < ^ , 7 ) 

1 ,KUSJFC . ■'IJNF N» 

I) MINISTRY •if THE ENVIkGNMENT, MASTF -lANAGE", 

tL",JXoA-,JX,AlJ,?X,"PAGE*Sn) 

IVt SUIMA-^Y") 

Y RtP'Ji^T l)F WASTE GENt'-ATION A C F -1 SHIPHtNTS") 

to J.EPllPT iJF -<ASTt GFNt«ATIUN ABEA SHiPhfcNTi") 

E.") RFPIIRT i.)F eAClLlTY 'JP E k A T IONS" ) 

ING UtPGkT") 

LEO KEPUkT UN T-^ANSFEk STATIONS AMD PLANTS", 



CONTl SUAT ION - ■' ) 
FICATION 'JF THE kun; 
" TU ",I^l 



'OAP//" TI^•f PE-ilirj OF 



2d 3. 
^tj 7. 

100. 
JOl. 
3U?. 
iO'i. 



Ju/. 
303. 
3 04. 
JIU. 
Jll. 

313. 



ii'.. 

3ib. 

317. 



c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 



c 

c 
c 



c 
c 
c 

c 
c 
c 

c 
c 
c. 



c 
c 



SURf^OUTlNE [((SUM 



» THIS SUBWOuriNE WRITES THE txfcCuTIVE SUrlrlAftY REPOkT. « 
« * 



*** [NITIAL DECLAWATIGN OF L VfliilABLfcS AS REAL* 

*♦* ALL IMPLICIT Integer va^'u^les as integer 

IHPLI CI T K'f ALI A-H,L.O-Z ) , I N T € G E R M -K , « , N ) 

*»# 0ECLA4ATIUS LIF REAL VA«IAHLES (FUk TITLE5 AND 

«*«• NAMES) 

RE4L TITLf,RUNNA1,VECNAi1,S*'CNA'^»TRFNAM,PLTNAfl, 

1 LFLNA'n,RSCNAfl,<1KrMA'^,CnSTN(^,6),HASTN(2»3)«T[JT0F{/!), 

2 FAClL(^)»PfcKCNT(2),SYSTUT(<^l 
ftEAL TNAM,PKArl,LNAn,1NA-1,9LA,SKR 

RCAL AVCiJST(bl,UNC!JST('i>,PtRCST(tM,VUL(3J,AVVnL(3)» 

1 PtKV()L(3),TUSh,PUSf,LUSE,nU'>t,OT(20J,DP(2C),OL(20), 

L C4P(3>,nP(j),TR(j),TuT(3)tP£R(3) 

rJEAL «LAN'V'*,rtS,Nl) 

INTEGER T tO,R ,iJ ,L I MP AG 

INTECEW ^UNHEG,kUNENL),lNKt.P,iJUTkt»', 

t VECn;iN,SkCIUN,TRFlDN,PLTIDN,LFLlDN»MKTIDN, 

Z OMGID.OESTID 

«*« GENERAL CL'M.ION ^LlJCK 

COnr-nN/NUl^^S/NPAGE.NLlNES.LiNPAGt 



1 



KATf,NU1Yi^b»lNRFP,0UTREP, 
NU"VfcCtNunSRC,NU'11t) tNkfSKCi 

NUrini<T(9l 

»*♦ VEHICLES COiif^ON bLOC^ 

CniMnN/VEC04T/VtCNAM{d),CUSTTH(8»,VECIDN 

**« S(]LRCt:S CU^IHUN BLOCK 

Cnr'.-*aN/S''C[)AT/SKCNAf-(200),iRCTOT(.^00)iSRCIDN(^00)<ALwAST 

#»<■ FAClLlTIfS CUliUN 'JLJCf- 

CO-'(*dN/FACr)fit/Tki"NAri( 20 ) , PL TN AM ( ?0 ) , LFL NAM ( 20 ) , I ON ( 20 , 3 ) , 
1 FCP(20,3),VtP(2C,J)iFOP(20,3)»VOP(2O»3) 

*•* C'^r.-tOi FU^^ MAkKETS 



3 IB. 
3iy. 
3^0^ 
321. 
322. 
3^J. 

32 <i. 
32^. 
3 2 b. 
327. 
32b. 
329. 
330. 
331. 
332. 

33 3. 
33*., 
3 3b. 
336. 
337. 
33a. 
33'y, 
3'iO. 
341. 
3«»2. 
3^3. 
3't'i. 
i'fb, 
i'ib, 
3^.7. 
3<tfa. 
349. 
350, 
3^1. 
352. 
353. 

355. 
35 b. 
3^7. 
35ti. 
359. 
ibO. 
3til. 
362. 
363. 
364, 
365. 
36b. 
367. 
366. 
369. 
3 70. 
371. 
372. 
3 73. 
374. 



c 
c 

c 



c 
c 
c 
c 
c 



c 
c 

c 



Cnr«')H/rtKTOAT/KSCNArt(-J) ,nKTNAM(-V,'i»»,MKTlUH(9,4»,0f'^ANU(9,4), 

♦ ** CU^.tON F0« Tt^ANSPOR FATIOH A><CS 

1 NAN0ST,NAM0SP»NA\D'>L.NANl}TP,NANDTLtNANDPL»NAN0P"itNAf>tOHL 

CQ1'-0M/GUT/A-CHiT(^OO0)t'<Sr<2Ut3),'^f(8 1.).0ELTA(Z0t3J,C0'}n6»,DISC 
EQUlvALENCe. ( OL'L TA ( 1 , 1 > » D T ( I ) ) » ( ^6 L T A ( 1 , t ) , DP « 1 ) » . 
1 (OtLTA(U3),DL(in,(NJ1(^),NK!1) 



DATA CnSTN/"C API TAL ","CaST 

"T-! ANSPOK'","T COST 

t4AST,M/"hASTt Gt'S'-NERATtD 
"WASTE Ur',"5P0SfcLJ 



","SJPtkATlN'S"G CnST ", 

'%"rrTAL cu'S"ST •■ » 

","NcT KkUF"»"IT "/. 

",--<ASTE k£","COVERFD ", 



rOTUF/"TnTAL CO", "ST OF FA"/, 

F ACiLZ-'ClLlTIf S"," "/ ,PtWCMT/"PEf<CENT ","0^ SYSTt"/, 

Sy'iTl.)T/"M TOTAL "," "/ . riLA NK '♦Z " "/,YES/" YLS"/f 

NO/" NO "/,HLANK8/" "/ 



CALCUATE OISC'JUNT E4CT0^ AND iftvE IN COniON/nuT/ 



IF C^ATE.FO.O) 01 SC>=KUNrf^S 

IF (QATE.EQ.O* 00 TU 10 

ISC=NUiYKS/ )(l..*.<ATEJ**NUrtY~:S-L.)*"<ATE*(l.*KATei*<-NUMyK'i 



^0 CALL i^FADtf' (1.0) 
-PI TE( fi,')0't> 
NLINFS=NLINES»6 
VOL (1) =»ALHAST 

vnL (?» '0. 

IF( NP^.FU.O) (iU TU 100 

010 I = U.NkM 

10 VOL ( ^)=VOL( 2 } »-WM( 1 > 

100 VHL ( ^) =vaL< l)-vuL(^ i 

C'l 5 T ( <t ) = . 

COS T(5) =-cnST( "JJ^DI SC 
011 I = 1 t b 

IF( i.Eo.2.01? . I .to. J I cnsTi n=coiT( n*Disc 

IFILLT.-i) COST('.>=CUST( *!) ♦COST ( I) 

IF( I.rrj.tj) CD'iT(h>=COSTfj)-Ci]ST('t» 

AVCCST(n=CUST(I»/NUl1YRS 

UNCOSTt I )=Cl)i T( I )/ALHAST 

IF( I .CT. 3 t CO TO 11 

A VVCLt I J-VOL U )/NUn YRS 

PE^VtJLfl ) = VOL( I >/AL-(AST*LOO. 

11 CQ-^TINUE 

DO 12 l-U<. 

12 PERCST(1J ^ CUST( 1 J /COST ( 'i )»100. 

WilITF(f>O0^) ((C()STN(J,n,J = l,/),CaST(I»,AVCOST(IltUNCnST(IJ, 
1 PEPCST(n,(VHASTN<J,I»,J = l,^U*'nL(l),AVvQL(I),PFPVCL(I),I = i,3» 



375. 
37b. 
i77, 
37a. 
3 7V. 
3ttO. 
3tJl. 
3bi?. 
3a3. 
Jn<f . 
3tt') . 
iab . 
387, 
3b«. 
304. 
390. 
391. 
3V<^ . 
343. 
J44. 
3'-/t>. 
3Vb. 
iv7. 
39tt. 
3V4, 
^00. 



'tUl . 

<»03. 

'tUt) . 
^07. 
'tOd. 
'.09. 
'tlO. 
'.11. 

-.li. 

'ti'., 
'I l!>. 

'.If.. 
'.17. 

'tlf-. 
419. 

'♦^0. 

'♦Z't. 
'i2t>. 
'.i^b. 
'.^7, 



'.2tJ. 
'tf!9. 



GO TU 70 



TG 7 



«fiTF(f),'?c^) (casTN(J,',),J = lt^).c^sT('l),Avco5T<'. k uncos it-'.) , 

1 PERCSTiA) 

_ WRITF<S,^0^0)((COSTN(JintJ = L,2»,C0ST(n,AVCOST(I),UNCCST(I>j 

1 I = 5 , fc 1 

NLINFS = NL iNtS + U 

K'<AX=14X0(ISUn ( 1) iNUn( 2) ,NU.1( }) .NUM( <»)) 
NP= 1 

NflK r=NUMMKT( l> __ . _ _ 

NM-O ' " ^ ""^'^ 

D IJ 1 W = 1 , B 1 
Nl=N!-*l 

I F (N1.Lt .rJiKT) 
NMi 1 
N R =■ N k ♦- 1 

NIKT^NUMIKT (NR > 
70 IF( K.GT.K^AX) GO 

TNAh=9L.MHKB 
TUSf =^LANt<'i 
P^IAf'=9LANK« 
PUSFeRLAN<*» 
LNA tsRLAN^S 
LUSF=l^LANK^ 

hUS E=?LANi<'i 

IF( K.GT.NUI-( 1 ) ) 
_ TN.\M='T*FNArHK) 

■""■ TUSE=NG 

IPCOKKj.GT.O.) 
3 IF( K.GT.NU'H^ ) ) 

PNfi t.<=PLTNA,"l(«< ) 

PUSF=Nn 

IF ( DP(K) .GT.O. ) 
A I F( K.r,T.MJ.-{3 ) ) 

LNAri=LFLNAM(K ) 

IF (OL(K t .CT.e. ) 

b IF ( K.GT.NU^C*) ) 

--SA ^='1r<,T^^A1{N^^»N«) 

iF( Hi{K ) ,GT ,0, ) huse = yts 

6 Ml? I TE(6,')07I TNAfl, TUSF .i^NAM ,PUSf: ,LNA,1fLUSE, MNAM, MUSE 
IF (NLINES.LT.LINPAG) GG TU 3<J 
CALL inF AOEK (1,1) 

NLlNi"S = ^LMES*''5 
30 NLI NES=MLINES*1 
1 C3NTINUF 

I^ ( MLlNEb .GE .LIMPAG*0 ) CALL Hf ADt ri ( 1 , I ) 

7 WRITFCiOCB) 

na'^ N=i,3 

NiJ«ll=NU*1( N > 

C A P t M ) ^ . 

OP (NJ =0. 

T R ( N ) =• . 

009 J=liNUM3 

CAP(N)=CAP(>ll*FCP(J.N)<'L)ELTa(J,N»fi/CP(J,Nl*HST(J,N> 



GO TO 3 



TUSE=rFS 

CO TJ 4 



PUSE=YE5 
GO TU ^ 



LUSL=rES 
GO TO 6 



430. 

<i33. 
<»3i. 

*t3a. 



't50. 

4'>6. 
'tb 7. 
't5b. 

<tb3. 
'tbA. 

<fb6. 
*tti7, 
'•6H. 
<t69. 
470. 
471. 
47^. 
47J. 
474. 
47^. 



477. 

474. 

4tJ0. 
461. 
4t)^. 
4B3. 
4tl4. 
4a!>. 
4Bfe. 
"187. 

4aa. 



f 



€ 
f 
f 

t 



C 

C 

c 
c 



8 



•5p*t 



CHN T INUF 

IC(N.ro.j) b(i 10 'j'y 

i<=(N.ro,z) GO Tu '.o 



T° HK TL ARC 



NAP CHI =NANDTL 

c.i TO '>a 



'L 0-^ Cf AkC 



SO 
''O 

so 



so 



so 
so 



N 
N 

,1 

T 

c 

T 
P 

H 
h' 

F 
1 
? 

S 
S F 
SO F 
ft F 

1 

^ 

7 F 

1 

fl F 

L 
) 

y F 

90 F 

« 



ARCLO^NANOTL 

ABCHl»NANDPf 

OSS MAKC = NARCLCl*NAkCMl 

^ I N) = T'^IN) ♦AkCOSKNAKC ) »A><C»* 

(IN T iNlJf 

GT«N»=CAP(N>tJP(N)*TR(^) 

FR(N)=irOT(NJ/CUST(<t)*lOO. 

•*ITr(^,S09l (COSTNd ,i » ,1=1, 

><iTr(b,so'n (cosTN<if^>,i=i^ 

|<I TE(f>,SOi) (CGSTNt I , j» , I -1 , 
i^I Tr( ^,S0^)) ( TflTOf « I ) , I"l .^ I 
*ITF('>,SO'J0) (PtkCMTII»,I-l. 
0« 1AT< "O-'.-'SYSTtM f INANCI AL 
" SYSTE ii"//r?4,"bTuOY"',T17," 
"S T1J(1Y", ril 1 ."ANNUAL", r 1^3," 
TS7,"nr TflTAL"iT9<^,"PEKI0D", 
"( t)",T3 /,'•( WVK )",T'»8,"< t/T 

'1(?*<AT(" ",?^H*Z» fZfl2.2*H^, 

T-^f*AT< "0"," FACILITIES AND -1 
"TPANSFFt; STATIONS", T^^, "USE 
" U S Ef) " , T 7 J , " L A N F I L L S *' , T « f) , " 
TPMATC ",T7,AH,T2'f,A't,T<i^,A 

A** ) 
Oe«flT( "0", "COSTS UF FACILITI 
" F F V " , f> X , " P J rj C E S S I N G " , '^ X , " L A 
"1%)"/ ) 

n=if*ATi" ",'.A4, 3(1-1'?, 0,2X)) 
nPr*AT(" '•,<tAa,3( FIS. l,^X) J 
ETURN 



ST(NA4LJ«r.I sc 



i?)tKLANi<ri,ttLANKa,(CAP(N»,M»=l,3J 
^J,(lLAiNK8,bL4NKb,(nP(NJ,N = l,3) 
^),HLANKt^,HLANKtj,(TP(N>t^'lt^^ 
,(FAClL(I).l-lW>,(T0T(M,N=i,3) 
?J.(SYSTUTlI),I»l.,?),<PfP(N»»N.l,3) 
SU<-MA«Y",T/H,"MATtP I AL FLUm IN TML", 
ANNU4L"»T<.a,"UNl T",TS7,"PtKCt NT",T'>'J, 
PlKCFNT"/T2'*,"PLkIDO",T3h,"AV(K/iCL", 
Tl 10,"AVEKA0E" t T 1<::3,"()F T (.; T Al "/ T ^ S , 
)",TSH,"C/, »", T 10 0,"( 1 J", T 110, 

S,FfJ.l,l3X,^Aa,^X,?Fl^.^,f^.l) 

S) 

A^Kf TS USED IN THE 5VST[r"//T3, 

0",T 3M,"P«UCl^SING PLANTS", TS 4, 

USLO",T100,"MARKETS",T II 3,"UStO"/ > 

^,TS'»,A't,T/'t,A8,Tti6,AA,TlC0,Aa,T11.3, 

ES USfcO IN THE SYSTFM"//T3d,"TkANS", 
NUF lLL"//T'.0,"li)",Tf,0,"( t) ",T7f), 



<i4<f . 

't-i? . 

SOU. 
SOI, 

bOi. 
SOI. 
SOS. 
:>0o . 
S07. 
SCO. 
S0'>. 
SiU. 
Sll. 

su . 

bl3. 
SI"*. 

sis. 

S16. 
SI 7. 
Sltt. 

S^O, 
S<:!1. 
S^^. 
Sc' ». 

S^S. 
Si!b. 
S^7. 

S^b. 

S30. 
S31 . 

S3*;. 

SJ3. 
S3't. 
S JS. 
S Jb. 
SJ7, 



c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 



c 
c 
c 



c 

c 
c 

c 
c 
c 

c 
c 
c 



c 
c 



c 
c 
c 



SU!lROUTtNE SUHREP 



* « 

* THIS SUBROUTINE WRITES THE SUMMARY REPORT OF WASTE * 

♦ GENERATION A»EA SHIPMENTS. " » 

♦ ♦ 



Implicit kEAL{A-H,L,o-z) ,integer( i-k,m,n) 

*»* OtCLArtATION OF REAL VARU'^LES (EOR TITLES AND 

*** NAMES) 

■<FAL T ITLE ,RUNNAM,VECNAfi,SW!CNAM, 
1 NAh,RSCNAf1,PlKTNAM,0ESTtS0URC£ 

INTEGEP T,0,R-.W,LINPAG 
INTEGER «UNaEG*RUNEN0,lNRFP»OUTREP, 

1 VtCll)N,SkCIDN»TRFIDN,PLTIDNtLFLlDN,MKTIDN, 

2 ORlGIOiDESTIO 
MTEGPR TYP( 3) ,TYP£ ,SRC< ^00J 

• *♦ CFNEkflL COMMON PiLOCK 

Cn^rON/NUJIftS/NPAGEtNLlNESfLlNPAG, 
I PATE,NUMYRSt iNREPfOUTREP, 

1 NUMVf C tNUMSHCtNUMCtt ,NRESRC» 

3 NUMMKTtV) 

♦ *♦ VEHICLES COMnU:^ RLOCK 

COr-HnN/VECDAT/VECNAMtfi) ,CnSTTH(ri),V£CION 

■>»* SOURCES CUMML'N BLOCK 

Cr)HHGN/SRCTAT/SlJCNil(ZO0»,S.-(CTOT(20O),SRCION(^O0>,ALHAST 

«*« FACILITIES COMMON SLOCK 

CriMftON/FACDAT/NAhf ^0,3>,I0N(^O,^),FCP(i!O,3>»VCP(2O,^J,F0P^^0,3). 
L VOPitJQ, 3) 

*** COMMON roe MARKETS 

COf^M0N/MKT0AT/KSCNA'-,(4(,MKTNAM(9,V),nKTION(9.4),OEhANtJ{'V,'T»)* 
1 PR ICE TO, 9) 



*♦ * 



COMMON FOK TRAnSPURTATICN ARCS 



COfMON/At-'COAT/ARCOST (^OOO^ORIGIOfSOOOI^OESTIDI^OOOl, 
1 NAN;)ST,NANDSP»NANDSL,NANUTP,NANOTL<NANDPLtNANrjPM,NAN0KL 



539. 
5<iO. 
b'ti, 

3^3. 

5'i9. 
530. 
551. 
55Z. 
553. 
55^1. 
555. 
556. 
55?. 
55a. 
559. 
560. 
561. 
56^. 
563. 
5b't. 
565. 
566. 
567. 
568. 
569. 
570. 
571. 
57^. 
573. 
57'». 
575. 
576. 
577. 
57tl. 
579. 
t>SO, 
5B1. 

5tt^. 

5d3. 
5a'». 
5B5. 
586. 
5by. 
53t). 
5^9. 
590. 
591. 

593. 
59*f. 



c 
c 



10 

i 1 



zo 



c 

G 

e 
c 

e 



sio 



bli 



iOUKCf.-S'^CNaMt J ) 

GO TO b 



C01HnN/OUT/A'^CHST(')000».H5T(<:;0»J).'^rt«8 1.».OtLTA(20,3),CLiSn6J,UISC 
OATA TYP/" TS "," t^w '■," lF "/ 
CALL HC ADf •'(i! tOJ 

NLI NFS'NLINF S + 12 
SRC ( ll=OK ICIOI 1) 

Oni N=l,NftNOSL 

nm K = i.,Kr'Ax 

! F ( 0«IGIO<M .FO.SkCIk ) ) GU TO 1 

K HA X*< 

S^C (^HAV > =(H IGIU(N) 

CG^tTjNUE 

n 3 *< = I » K rt A X 

nO't J'UNUhSRC 

IF ( S>^CH)N( J) .FO.SwClK > ) 

')'lb I^-Ul^ANDbL 

I F( APCWST ( M .Le.O. ) GG 

IF{CRIGIO(l>.NE.S'<C(K)J 

IP( I.LF.NANOST » NTYP»l 

1 Ff I .GT.NANOST .AND, I.LE.NANiiSP) NFYP'a 

IF< I.CT.NANOSP.ANU. I .lE.NANDSL ) NrYP=3 

TYPF=TYP(NTYP 1 

N1J1R'^MU1( .NTYP ( 

IF ( ION» J,NTYP ) .CQ.UESTIDl n » G'J T] 11 

OFST=NArt( JtNTYP) 
kASTE = AKC'*'>T(U 

A V - . 

T";.CGST = ARcwsT( n*A«cusT( n*nisc 

IFCHASTF.Nt.O.) AV=TKCaST/wA5TE 

TRCCST=TeCOST/1000. 

YRCaST'TRCDST/NUMYRS 

r«waST=tiaSTF/NUHYRS/lO0O. 

HAS TE=>waSTF/1000. 

IF {NLINES.LT.LINPAG) GO TO ^0 

CALL MEADE'< ( ^, I) 

woiTE (t^blOf 

HUIT? (^,M2J 

ML I NFS='NL I MES*12 

►^RITFC^.^i:?) SUU*<Ct«DfST,TYPt,HflSTF,Yi^hAST,T-<CaST,YPCOST,AV 

NLlNES'^NLlNf St 1 

CHNTINUE 

CONTINUE 



FOKtIATS 



Fni{^fir ( "0",T 1 U"F AC ILITY TYPiS: TS-T«ANSFt"W STATIPn, Pv'-", 
1 "PRUCFSSIinG PLANT, LF-L ANOF I L L'V ) 

F Q/^MAT t"0*',Tt), "QUANT I Tits A^'t IN THOUSANfiS GF TONNFS. TUTAL ", 
1 ••COST AND YFAfiLY AVERAGE COST A«E"/Th,"lN THOUSANDS UF DiJLLAkS,", 
^ " AVF>JAGF IN OfJLLAQS PF-^ T JNNE . " / / / T 1 b , " ". 



^9t). 

b9«. 

bOO, 
bOi. 
60^ . 
b J . 
bO'». 
60t>. 
606. 
60/. 
60ti. 
609. 
blO. 
61 i. 
bl2. 
bl J . 
bl "t. 
6ir>. 
61b. 
bl ?. 
bit). 
619. 
tZij. 
6^ I . 

b^ i. 

bZti, 
bi7, 
6/0. 

6iU. 
bJl. 

632. 
b3i. 



6Jt). 
bib. 
637. 
bit}, 
6 39. 
b-tO. 
6'ti . 
b*t2. 
b'l J. 
b'.'t . 

6<ib- 
6^ 7 , 
b-ttJ. 



^13 



.. SHIPPEH TfJ FACILITY ", b-iV. 

" "/T4,"GtNt^AT I0N••,Tl7,"^lArE",T^'),••TYPt•', bbO. 

T35,"TUTAL",T'.*,"YeA-<LY",T^^,"TurAL",T79,"ANNgf,L"»TV*.,"AVbRA&E"/t b^i. 

Ta ,"A«FA"»T3'>,"0UANTirY",T't'i'*"A\/trtACt ".T6b ,"COST",T7<J,"AV£kA&6"t fa!>^. 

T^'.,"COST/TaN*V I *i^3. 

Fn''rAT('iX,A8*Tl'>tAdtT2ti.A't,T3^,F10.ltT'th.F10,l,Tfi?,F10.ltT/bi 6^*». 

1 F Ifj. 1,T«J1 tF LU.')) ^ t)bb. 

RETUi^N fa'Jb. 
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c 
r 
c 
c 
c 
c 
c 
c 
c 
c 
c 



c 
c 

c 



c 
c 
e 
c 



c 
c 



c 
e 

G 



c 

c 



SUaeOUTINr Dt Tf-flC(l-&CNAM,HACIYP) 



* THIS SUBRUUTINI. HkITES THE DtFAlLil.) J-lPU^r UF t- A C I L F T ¥ * 

* HPESATIONS FO-* cITHt« ONE FAClLITr* SPLCIFitO i Tf Nf.hF * 

* (FflCNAf*), L'P 6LL FACILITIES ( F AC^J Am = " AL L "». * 

* * 



REAL ALL»FACNAf^iRSCNA1,1KTNA^»NAti,IJESNAM 

INTFGF- TVt^f< U,FACTYP,ni*ir, IU,0f:5TID,L)tSTYP,LlNPAC 

**# GCNFOAL COnrtON 9L0C-K. 

.COrtl^ON/NU'i'*S/:^(PAGt ,NL iNtSiLlf^PAt., 
1 RATt ,NUf1Y^Si iNPtP .JUTt^EP , 

? NUIVFCiNt/nStiCiNUl-C <») ,NRhS!<Ci 

3 Nunhrt,T<9» 



**♦ FACILITIES C0M"(ON 3LUCK 

Cr)i.inN/FACi)AT/NA)H^':,3>.ION(^0,3J,FCP{2U,3J»VCP(^0,3),FU?(2U,3), 
1 V0PtZ0»3» 

=^#'> COMMON FliK rtA«K(.TS 

CnfMON/ll'TOA T/KSCNAM(<i»),M<TNAn('^,-J>,f^ftTIJN(4»9J,DfrANDt4tV), 
1 P P I C E T ( ■^> ♦ 4 ) 

*#» COH^ON FiJK T M ANSPOR TAT H'N AkCS 

cnrinnN/Aw[;oAT/A(^cusT(soao> ,ok ig['J(:)000) .atST id( ^'^fioi t 

1 NANDSTfNANOSP tKANUSLfNAf^i)TP.NANLlTLtNANUPL,N/.NDPM,NANDrtL 

Cr)»lrnN/OUT/ARCViST(5OO0>,w5T(^0,3),Wr{cJl»,U?LTA(Z0,3»,CCiHt>»,DliC 

PATA TYPfd)/" TS "/,TYPt(^)/« "K "/.TYPfct 3>/" LF "/ 
DAfa 4LL/"ALL "/ 

CALL HfADf «( ^,01 
i^-^ I TF(^,'>l't ) FACNAn 
-■ilTEtfJibl^J 
NLrNE$ = NLlMES*t) 
001 NTYPr=l,3 

IF< F ACNAH.f 0. ALU GU T'J 10 
IF ( FACTYP.Nf .TYPE (NT YPE ) » GO TO 1 
10 NIJ1B=NUK<NTYPE ) 

1 F( FACNAM.C3, ALL> CO TO 3 
IF( NAM( J.NTYPF ).NE .F ACNAM) GO TO ^ 
3 TRCGST=0. 

UNI TT'' = 0. 
UNI TCP^'O. 



bfaO. 

b*j3, 
bb't, 

6bfa. 
66 7. 
6bd. 
66 'K 
670. 
671. 
bU. 
b7't. 
67'>. 
b 7 tj . 
677. 
67b. 
6 7'*, 
650. 
6dl. 
6HZ. 
ba 1. 
btf't . 
65*3. 
69b. 
ba ?. 
bfclb. 
6b 9. 
fe'^O. 
6Vi, 

b4 jj . 
6V4. 

bV"? . 
6^b . 

b'ia. 

6 73. 
bVy. 
700. 
702, 
70 3. 
70^. 

70b. 

7 0b. 
707. 
70d. 
709. 
710, 
711. 
712. 
7 l3. 
71'.. 
71!?. 



c 
c 

c 



c 
c 
c 



5 
6 



UNI TOPsO, 












UNI TQT-O. 












lF(NTYPf:. 


EQ. 


J» 


OL) 


TO 


6 


iFCNTYPE. 


to. 


.2» 


GO 


TO 


t* 



TP Qk Tl AkC 



NAftCLO>=NANUSL + l 
NARCHI -NANOTL 
GO TO ■? 



PL OR Prt AkC 



NARCLn*NANnTLtl 
NAQCHI »NANOPm 



1 



I 



10 



I 



1 

80 



94 



P5 
Q6 



100 



CON 
1F( 

If ( 
CAP 
OPC 

IF ( 

1F( 

TOT 

IF( 

IF 

GAL 

WRI 

Wft I 

NLI 

NLI 

HRI 

[F( 
CON 
CON 
IF ( 
IF < 
W*?I 
NLI 
DO'* 
IF( 
IF( 
IF( 
[(={ 
1F( 
VOL 
Nljrt 
If ( 

[F( 
0?S 
GO 
DCll 



TINUE 

N=NARCLO 
0RIGI9(N> 

HST I j,NTy 

OST-(FCP( 



wST( J 
hSTI J 

cnS'C 

MST( J 

( ML In 
L HFA 
TF (•> 
TE (6 

NFS*N 

TF(ft, 



,nTY 

,NTy 

APCO 
,NTY 

es.L 

Otk 

LlNS 
LINE 



FAC"^ 
TINU 
TINU 
FACn 
NTYP 
TFtf> 
NFS- 
N = N 
ORIG 
N.GT 
N.GT 
N.GT 
N.GT 

B=NU 
Of ST 
5 r^ * 
DFST 
NA1* 
TO I 
01 I 



A rt . N t 

e 

E 

A M . f U 
F . t . 
t5l7» 
NL IN£ 
A»CL0 
ID(N» 
.NAND 
• nAnD 

.NANO 

.NANO 

ARCWS 

rKOeS 

YP.LQ 

I ,NUM 

ID(N» 

NA"<{ ■". 

10 

»1 .N*< 



»NA 

.eo 

PE ) 

,NT 
J .N 

PE» 

pe ) 
s+o 

PE ) 

T.L 

> F 
) 

S*3 

S*l 

NA 

UN 

. AL 



KCHl 
. IQN( J 

.Nt" .0. 
YPE ) *u 
TYPE )* 

.Nfc ,0. 

•NE .0. 
PCUST* 

.Nt .0. 
INPAG I 
I » 
ACNAM 



,NTYPf)) TRCnST'TRC05TtARC0ST(N)«AKCWSr(N) 

*OISC 
> UNl TrR = TKCL)Sr/HST ( JtNTYPE ) 
ELTAlJ,NTYPf)*VCP(J,NTYFE)«MSTlJ,NTYPE") 
DEtTAtJ,NTYPtl*VOP(J,NTYPE)**HST«j,NTTPEn 

*DISC 
) UN1TCP=CAPC0S/HST( JtNTYPE ) 
) UNIT0P-0PC')ST/W5>T( J,NTYPF > 
TRCQS T 

) UNITOT'^TnTCOS/HSTl J^NTYPF ) 
Gf] TO ^0 



n(J,NTYPej,CAPCnS,JPtOST,TRCtlST,TCTCOS,UNlTCP, 

lT'JPtUNlTTH,UNlTi)T,.'('>T(J,NTyPE) 

L) GO TO 80 



.ALL) RETURN 
J) KtTURN 



S*6 
»NA 
.NF 
SL. 
TP. 
TL. 
PL. 
T (N 
TYP 
.'t) 

.EQ 



KCHI 

. lONC J,NTYPt » J 



CO TO 9*» 



AND.N.LF.NAfSOTP) 
ANO .N.LE.NANOTL ) 
ANO.N.LE.NANOPL) 
ANO.N.LE.NANOPM) 
) 
) 
GO TO 100 

. lON<(-,ot:>Typ I ) 

STYP » 



DcSTYP = <J 
0!^ STYP'3 
OESTYP'3 
DtSItP^'i 



GO TO 96 



71fc. 
71?. 
/lb, 
719. 
7^0. 
7^1. 

7Zi, 

W>, 
Tib. 
72 7. 
/Zti, 
Wi, 
730. 
731, 
73i. 
733. 

n^i, 

735. 
736. 
737, 
736. 
739. 
7'.0. 
74 1, 

743. 



ESRC 



7'i5. 
7<i6, 
7'«7. 

7<»tJ, 

750. 
/•5i, 
75^. 
753. 
754. 
755. 
756, 
757. 
75b. 
759. 
760. 
761. 
762. 
76 3. 
764. 
765. 
766. 
767. 
76t}. 



101 
102 



30 

iin 

'J 



e 

c 
c 
G 

c 



SI-, 



C 

c 



Hi*K T^NUMHK T r I J 

onici K^UNMKT 

IF ( DFSTIOt '^) .f U.1KT [U>1 I .K ) J Gn 

Of SN'^"" "»< TNAh ( i ,K ) 

IF tNLiNt S.LT.LlNPAGJ GJ T'J iO 

C4LL HFAOfti M,l) 

w^l TE ( hOl?) 

NLI NE'i^NL 1^^:S '■') 

NLI NES'=NLINES + 1 

H^ITEt^Oltt) i;l"SMAM, VOL-(ST 

CONTHUE 



f Ut^iATS 



TiJ li.)^ 



FqiRHAfCO'S"*^ aClLiT IE S 

tiiRi-i/ir ( "0",T 1*5," 



I NCLuJt't) 



In this KEP0''T: 
ANNUAL COSTS 



",t HI 



I .. ■','tX," ", 

? '. UNIT COSTS "//T'f, "FACILITY", 

i Tl7,"CftPITflL",T2'),"0PEkATlNG",r'tJi"TR;'l^SP!jS<T",T^f>,"ruTAL",TM, 
*, "CAPITAL ",T-f':),"Ut't«ATINC",T'*9,"T"{ANSPUKr",Tll^," TO TAL",T1^<., 
t) "WASTi; "/!!'*, "COST", r n,"CLl ST", T^t 7, "OUST", T ^6, "COST ",T ^t, "COST", 
^ T>iT,"CaST",T 10.1,"CQ5T",T11^,"C0ST",T1^ J,"SHlPPrn"/TlV,"( l)",Tjl'., 
7 "( t)",T^H,"( 1.|",T^ /,"( t) ", T?-,,"! i/ r*", Io^,"( 1/ T) ", TIGJ ,"( l/T )", 
H Tll2,"(l/T»",ri2^,"(T)"//) 

•^Ih F'H»-AT(" ", JX,A(i,2Xt<*t<?X. ,Flf/.0,lX),'t(2x,EiO.'3,U) ,^X,^ 10.;./! 

*^17 F OR MAT( "-", 1.0X,"GUA^TI Tr SHlPPtO TO LftCri DE S T I N A T I 0^^" / / T 1 1 , 
1 "DFSTTNATI'lN", rJCMi^OUNT ( 1 1^ TON.^tSI"/) 

SIR FfHI*6T(" ", Tl 7 ,A»,T33,F10.0 ) 



770. 
/71. 
?72. 



^ETUe^t 



77'!, 
77'3, 
7 7b, 
777, 
tla, 
77'^. 
7dO, 
7bl. 

7m. 

7t>J. 

?b'». 
7d/. 

7 66 , 
7\ii . 
7V0. 
?9i. 
7St^. 
74J, 
7'/'*. 
79-3, 
7V(j. 
74 7. 

7y*i. 

7Hi. 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



c 

c 
c 



c 
c 
c 
c 



c 
c 
c 

c 
c 
c 



c 
c 
c 



SUft«OUTlN£ Uf TGt N(Gl N.-sA-iJ 



* THIS SUBKOUTINf Hi^rrtS THt DETAlLtD ■'fcPUKT OF HfiSTF GENtRATMjN • 
» fiS^FA SHlfhf.NTS FOR FIT Hi:" t^ GNE &f-Nr; RATION A^^EA, SPFCIFIFO bY ♦ 

* NA.iP (GtNNAMK \\» ALL THF- GtNtf^ATION ARtAS (GENNAr»"ALL "i. » 

« m 



INTfGEi? S'<CIDM,riKTION,OkIGIO,DEST10,CESTYP,LINPAG 
"^FAL ALL,GENNAltS^'CNA.1,>^SCNArl,h><TNah,NAh 

♦ »* CFNEkAL Cnrf^UN BLOCK 
COir'0^/NU-HS/NPAGt»NLlNtS,LlNPAG, 



kATt.NUMY'<S,lNREPfOUTHtP. 
NU'-VEC,NUnS^:C,NU.1C»l*Ni^ESH!Ct 
NUfirlKT ( ■/) 



*** FAClLlTIEi COMMON ."ILDCk 

C^-1rlflrM/F«.COAT/^tA1(^0,3),IL;N(<?O,J),FCP(^Ot3^■.VCP(?0,l),FUP(^O,J)» 
1 V(]P(2 0,J» 

*»« SGU*<CES ClMi-iUn riLOCK 

CnfH[)N/S'<COAT/S'^Cf^A"(<>nO> ,SHCT!]T(^00) ,5t^C ION(200 » , ALHA'iT 

Cn''"0r>t/»'KTDiT/«SCNAr'('^),*i'<.TNA*'('*,^l,«!<TIDN(^,4),0tMAND('^,'/). 

1 P M I C E T ( * , 9 » 

*** CJrMON Fi>' Tk ANSPOM TAT lUN Md 

c 1^ "-n N / A k c i:j A T / A t^ c u s T ( •> ) . i) >-^ 1 '/ rj ( ^ » * -3 E s T 1 ( s ) , 

I NANOST .NA"'(OSP fTiAiNOSL » iHANJff' ,NArU)TL t NANOPL *NAriL/Prt«NANUHL 

CniMOS/OUT/AlJCKST (bOuOl ,^ST(<:?C, J» ,-*n(bU,UbLTA(20,3),CU^T(t, J,UI^C 

Cn^f^'T'^/Gt N/NCISUr-T , lOSU'jr ( ^0) 

DATA ALL/ "ALL "/ 



CALL HT: AOLK t 3 .0 1 

W-*I TE(^t'bL<n GE^NAI 

'J a I T £ ( ^ , S 2 (U 

NLI NFS=NL INE S»-6 

Df]l J'l.NUP'SkC 

I F ( GFNi'^Ai'', FU, SI-'CNAM( J ) J GO TO t 

IFfGFNNAr.Nf.ALLJ GO TO 1 

CCl TO 3 



ttOO. 

aoi, 

803. 

H0<». 
riO*). 
ttOb. 
b07. 
bOd. 
a09. 
« to. 
ttll. 

tJli. 
a 14. 

815. 
616. 
817. 

aid. 

819. 
B^O, 
U21. 
«2^. 
«2 J. 
iiZ'i. 

d26. 

a27. 

6 30. 
H31. 
bJ2. 
»33. 
tt J<». 
d3t>. 
bio. 
d37. 

rt J9. 
d'tO. 
Cti. 

d'ti: . 

«<»'♦. 

0^7, 

8'«8. 
BbO. 
b'Jl. 

6'>^, 

o:>3. 

db4. 
8bb. 
abo. 
657 . 



I 

3 



10 



30 



QO 



6 
7 



J J' J 

WSTCFN-0. 

TRCCST=0. 

DQ^ N=1,NAN0SL 

IP ( OetGIDCNj.NE.SkCIUNf J) ) t-i.) TO <» 

wSTGFN=-HSTGtN*Al<CHST(N) 

T-JCaST=T<<Ct)5T*AkCa!>TlN»CA«CwST(N)»01St 

CONTINUE 

UNI TT8-TRCnST/HSTGLN 

T3AVG-Tt?C0ST^NUMYBS 

WSTftVG=HSTGEN/NUrYKS 

IF (NLINf S.LT.LINPAG) GO Ti) ^0 

CALL HF AUL-< ( Ji n 

M-ilM ( h«^19! Gf NNAH 

H^ITE 16,')?0) _ 

NLI NFS=NLINt S*d 

'^'ilTfl^),^?!! SRCN&n U),T^CiJiT,T-^AVG,UN[TT*<thSTGPN,WSTAVG 

NLI NFS'^NL INf S+1 

CHNT INUE 

I F ( G^ NNAP'.Nc .ALL ) GO TH 70 

IF (NTSUHT.t 3.0) ktTUtJN 

IF ( NLINES.GT.LINPAG) CALL HeflDt>^(ULJ 

w^I TF< S,'?^".) 

NLI NFS'NLINtS**! 

IF (J.f Q. 1 I IOLU-0 

IF(J.GT.l)i;")H)=lDSU4T(J-L) 
IDHI^inSUbT ( J I 
'^STGFN»0. 

TKCn'iT=0. 

!M19 N=1,NANU5L 

IF (n«IGIO(N) .Lt . lOLvl.UH.O? (GllJ(N J .GT. lUHi) GO TU 9 

.JSTGFN^mSTGEN + ARCwSTIN) 

TrtCCST=TMCnST»A«CiJST(N)*At>CHST{NH'aiSC 

ON TlNUe 

ijMI TTR-THCUST/H5TGEN 

TkA VG-T.<CnST/^<U'^Yk5 

.* S T A V G = -^ S T G (■; N / N U n Y R S 

!F (NLINF S.LT .LINPAG) GO TU JO 

CALL HEAOti< ( iili 

^^I Te {6,«>?4I 

NLI NES=NL iNf S*B 

HRITF<60Z':') IOSuaTU)»Ti^CUST.TRAVGTUNiTTR,wSTGFN,WSTAVG 

NLI NES=NL INES*1 

CONTINUE 

!-;ETUt?N 

w«ITF(602-?I 

NLI NFS*NL INE S ♦h 

005 N-l,NANDSL 

IF tCRIGIOl Ni .Nt.SkCIDN< J JM Gil TO *> 
IF{N.LT.NAN1>ST) nESTYP = l 

IF(N.CT,NANOST.AND.N.Le.NANL)SP) 0f;STYP='2 
IF(M.GT.NANDSP,ANO.N.Lt.NANOSL) OtSTYP'=J 
NU»l8»NUM(nESTYP) 

006 H»l,NUrt6 

IF(0ESTIO(N».F(J.IDN(n,0ESTYP)) GO TO 7 
I F I NLINES.GE.LINPAG) CALL H E A U f »< ( J . U 



860._ 

»6r. 

bb'j . 
bbb, 
ht>7. 

863. 



« ?0. 

072. 

87*t, 
d7'>. 
rt76. 
8 77. 



d 7e . 
aau. 

ddl. 

b<j J. 

8Bb. 



btJo. 

b'U . 
a4 j. 

b9t) . 

b^6 . 
b97. 

9 JO. 
901. 

90^. 



c 
c 
c 
c 
c 



SI 'J 






5?3 



NLI NrS=NL lNt;S* 1 

W'<ITn')t'>?n NAi1(f1tDESTYP),Ai<<JwST(N» 

COMTINUt 



FU*?1ATS 



F0>< "ATI "0'*,"Gt Nt WAT ION A-^.tACS) InCLULHU In THIS fttPfiPT: 'SAd) 
FO»r'aTI"0",Te,"GtNbkATI'3r',T^l,'*T^.\NSPUKT",T3o,"AVt&ACf ".TbA, 
1 ••uNlT",T()/,"fiOANTITY'",Td^«"AV(;KAGt"/Tb,"AKEA N A r. (- " , T ^t) , "C U S T " t 
? T l/.-r-iANSPOVT-.T^^^'T-iANSPOi- T",T67,"UK K A S IE " , T 6 3 , "n AS Tt " / T 3S» , 

*» T <i 1 1 " ( 1 » " , T •) 3 , " ( I J " , T n , '■ ( T > " , T >16 , •' ( T ) "/ I 

FTRi-ATC ",Tf, ,Ao,^F i'5.0,Fl*).D,i^Fl-3.0» 

f QO MAT( "-"*T^ i" iJUANTITY SUlPPtO TU LACh DESTINATION ". 

1 / /T10,"DeST lNATlUN",Ti?'.,"AnOUMT In TOnnES'V) 

FO'^MATt" "tTl 1,AS,T^?,FIO.O) 

FOR "AT* "0", T-i ."SUdTOTAL Tn"»T^ i. , "T ■< AnS PUK T " , T 3 tt, " A V f « ACE " , I '>*i t 
1 "UNIT", T67, "QUANTITY", T«^,"AVF«4Gt:"/T-^,"SUUkCc ID NC.",T^!), 
I "C0ST",T3/,"T^ANSPU'<T",Tb^,"TkA>)SPUl^T",Tb7,"UF HASTt",TttJ, 
\ "NASTt"/T J4»"C0ST/YR.",T')3,"C ]ST",Tht,,"GENfc^iATf 0",TB^,"GEN.", 
A "/Y4 ."/T^^,-(l>",T<.l ,"(tr',T') !,*'( t)'M71,"( T»",TH^,"(T)"/ > 

FO^ r-AT( " 'NT'/,! J,Tl^t ,^F l^ .0*F lb.'3i<?Fl*),G) 

.<f TUi<N 

END 



90 3. 
90^.. 
90^. 
906. 
907. 
90a. 
909. 
910. 
911. 
9i^, 
913. 
91'». 
91?. 
91b. 
917. 
91*1. 
919. 
9.?0. 
921. 
92^. 
9^ 3. 

9.db. 
9<?^p, 
9^7, 

9^»- 



c 

c 
c 
c 
c 
c 
c 
e 

G 
G 
G 
G 

C 
C 
C 



C 
G 

c 
c 
c 

c 
c 






<ffi IrJlTlAL OtCLA^AIIJN l\lr L VA^iabLtb AS '><c*L» 

«»« ALL IMPLICIT INTEGEK VAt-UtlLfS AS iNTtCc" 

I'^PLICIT PrAL(A-H,L,J-/)»lNT«;Gfrf( t-K,i1,N) 

*»* OLCLAi^ATIGN Oh ktAL VAKIA.ILES (FUk TITLES AND 

«* * . NAHf S > 

^FAL TlTLEi^UNNAMtVLCNA^iS^iCNAriT 

l HSCNA?1 ,MKTNflri 

iNTff.fV T ,J,P,H,LINPAG 

I>(Tf:CEtt RUN4EGtVjNtN0,lNKf.P»0UTKtPt 

1 VFCI'JN.SRCfO><iT«fIDN,PLri'JN,LELlDN,nKTIDN, 

2 [19 IGI JtDcSTi;) 

C JirON/NU'^aS/NPAGE ,NLlMcS »L INP AGt 
1 KflTE ,NUMYkS t INPFF ,;)uTKtP, 

i NUnVtC iNUlSKC ♦NUMT'<F,NU-iPLT,NUnLPL»Nt'f1,hKtS-<Ct 

3 NUtiMKTdl 

CTHi-iON^AWCDAT/Af^COST (^000> ,UH ICIO( •>C00) ,L)fcST I0( ^OOOJ t 
1 Nf,NDST,NANC5PtNAN0SL,NANOTP,NANDTLtNANDPL»NANDP«tNAMJwL 

c^^'^'nN/uuT/Al?CHST(:^oooJ,rtST(^o■l3»t^M(t)n.uELTA<?o,l)♦tC'>T^h»,DlSC 

*«♦ CiJ'-PiON fOk MARKETS 

COrtl'^JN/r^KTaA r/KSCNA«(9l,MKTNAr"(<^,'>),MKTlON(9,9),nEnANlMV,9>, 
I P&llCtT(9,9) 



IF THE^f AVE NO KESOUkCES, m} xLPQkT IS hKlTTEN, 

IF {Nt<f S^iC.EO.O) kETU«N 



CALL H£A0tH(5*l)) 
M"* I TE(ft»*730) 
MLI NFS"NL INES*^ 

N4NC=NANDWL 

TGTHST'O. 

TOTRFV^O. 

DOI NR = 1 tN*<f Sf<C 

002 **=!,. NIK T 

IF(NR.EU,1 » <=« 

IF(Ni<,GT.l* K»=Nun.1KT(Nf<-l)+rt 

NANC'NAND* 1 

IF( W«(K ).LF.O. I GO TO Z 

PftICET(N«,(-)--P'<ICtT(NR,M)«OISC 

REV^'HMU) '•P'<ICeT(NR,M» 



929. 

9iU. 

9iL. 

9 J2. 

93 J. 

9Jf . 

9.1'5. 

9ih. 

93?. 

93t3. 

9 39. 

9 *» . 

9'»L. 

9'»2. 

9*t3. 

9*1 <t. 

9'.D. 

9'«o. 

9^?. 

9<to. 

9^19, 

9^0. 

9^1. 

9^2. 

9^3. 

95't. 

9t.>. 

9^b. 

9t>7. 

9^*5. 

9t> /. 

9f)0. 

961. 

962. 

96 j. 

96't. 

9b'>. 

96b. 

967. 

96!J . 

969. 

9 7U. 

9/2. 

973. 

97^1. 

97!>. 

9 76. 

977. 

97tj. 

9/9. 

9ttO. 

981. 

9B2. 

98 3. 

9'i't. 

9B^. 

9tt6. 



?n 



•j30 



531 



rF {nlINES.LT.lINPAG ) GO T<) dO 

CALL HEAOF» c^, I) 

HRITF (f, ,530) 

NLf Nf;S=HLlNES + *) 

NLlNfi-NLlNES+l 9«tl. 

WiRITFt^, tbjn .1'<TNArt(N(!,1)teiSCNAf1(NR),HH(K»,PRICFT(N(<,M»,«£V 98V. 

TaTwST = TOTwSr«-Wl-HK I '-i'^0, 

TOTRFV^TOTxf V + 'Jfc V 9"^!. 

CONTIr'lJf 99^. 

CGNTINUC 9/3. 

IF( NLlNfS.CF.LlNPAG) C'i.LL HEAIjFk(5,l) 99^. 

Hkl TF(^,'33J» rOTHST,TLjT'?tV S^V^. 

FnP.I-AT("-",T5,"iiAaKET NAML ", T?0 , "PRODUCT NAnE " , T 3 7 , "GUANT I T r " , T '?'» , 99b. 

I ""ARKtT Pi' IC^ 'ST?! i"RFV£NUe"/T^O, 997. 

^ "< T)",T')9,"(l>",T7<.,"lir*/ > y'^b. 

FGiiHATC "»T7 ,a1,T^^, Aa,T J^Ji J«F 1 l.Oif)X » ) 999, 

FGR'«AT("0"tT^^,"TUTAl$"iT3'),F11.0*?3x,F11.0» lOOG. 

■'FTU-tN LOOl. 

ENO 100^. 



c 

c 
c 
c 
c 
c 
c 
c 
c 

G 

E 

c 
c 
c 



G 
C 
C 



G 

e 
e 

r 
c 
c 

c 
c 
c 



e 
c 



c 
c 
c 



S 'J '^ 9 nu T I N [■ T S H I P 



<■ f 

♦ THIS SUHrilJUTlNt i-;<ITtS Th£ T-^ANSFc^. STAUJN ShlP^fNT v 

* * 



I -^ P L [ C I T - r £ L ( L ) 

♦•* Of CL At'ATIDN Lif- ^KAL V A >.: I a -'.L ;' S ( FU^ TITLES flNL 

* * * N A 1^ t S ) 

'^KAL TiTLL,eUNNA'1,'/tCM&«1,SKCNtf, 
I NAM,ki5CNArt,«KrNA.1,0tSriSUJKCL 

[■^TrGf-' T,0,f*tWtF,LlNPaG«kUNYKS 

I-MT ECF« ^:UNHFG,tiUNf ND, iNk-JPiOUTKc >^, 
1 VFClUN,S*<CI'.JN,TKFlL)Nt'*LT [ON,Lf L IDn.^'I'T ION, 

? •^ I G I , 1 S T I D 

iMTFGi^k Trp «M ) ,TYPt ,SKC(^00) 

CT-fON /Hf Aj/ TI TLf ( -> ) .KUNNA." ( *, J ,'<UNhEG,rUf-irNUfr;ftT 
CJir-nN/MU««S/Nf>AGL ,NL INl S.L [''4PAG, 

1 »- ATE.SUilY'^S. I.*>t«Et',']UT«.fcf', 

2 NUhVt C »NU1S^C ,NUrT'^f .NUi^Hl T iNUiiLFL 1 NtT-fNy f iRC ♦ 

*** VFHICL^S CuJ-nON :iLUC< 

COr-«TN/¥tCuAT/Vt CNA,i(d) ,CiJSTTHjn),vKCION 

*** SGUf-'Ct-) Cn.illJN :1L^C^ 

C:1"."*';n/SKC0A r/Sr'C,SAn(^uOJ,S-'CTOr(^OU>,SkCIOS(^'')l),/.Lv.fSr 

**« FAClLirif. ^ CU.-^MUn rfLDCK 

C -IH t- ris / f .^ (^ r> A ,■ ^ y ^ ^ ^ ^ ^ , ^ f;, , ^ p j^ y ^ ^^ ,, ( ^ ^ J ^ j_ ^ j_ ^^ j^ ,^ J ^ ^ I ^ y J, J- J p. 1^ J ^ J J ^ 

1 PLTr)N(,^)),LFLlUN<i'n),TWKFCH(,"}>.fLTFCP<JO),U = LFf:t*<i'0>, 
? Ti*FVCP<iO),PLTVCPl?aj,LFLVCP<?'')t,TwrFUH(<^0),PL TFRPC^iOJ, 
J LFLF.)t»(?0) , Tw.F VOP<20),PLrvijP{^0) ,LFLV(jP( JOJ 

*«■> Cl^'^n^p-i r')« MA^KfcTS 

C f^T N / ,1 K T A T / K S L N A H I ^> ) , M K f N A r ( ■> , n . « K TI l) IS ( 4 , 'U , I) t I- A N f J ( '/ 1 'O . 
1 P K I C t T ( ■-* , J I 

»*♦ CiV-nON Ftlf' T.-iANSPUti TAT ICN A-.CS 

CnM«^i}N/ A-^COAT/Ai'COST ( SOOO » iijk i:j HJCiC/no) ,0t5T IU( 'f'^OOJ , 
1 NAN3ST.NANUSP»NANUSL*NANinP.NAM>TLfNAN0PLfNANpP«»NAN|jtiL 



. J 1 . 


^'tl . 


^'t^. 


b'^ i. 


b'^'f. 


^%:i. 


'j'.b. 


O'il . 


b'.n. 


^ <. y . 


^b.iJ. 


b^l. 


•j^j^. 


■sb J. 


b^'i . 


'>t.'>. 


^bb. 


t)5 1. 


t>')H. 


■>■>'*. 


^dO. 


•)6L. 


^6^. 


t>6J. 


'3^)'.. 


^f>b. 


*3»J^. 


^f> i . 


•ytn. 


btH, 


bfu. 


t./i. 


^ f^ . 


■> /' 1. 


^7h. 


t.7:?. 


^/(-. 


*j/7. 


b?^. 


-Ji"*. 


*)3U. 


*?« i . 


^d<r. 


3f) i . 


>aH, 


bd-5. 


•jlfl. 


^o7. 


bsrt . 


•jtt'j. 


')-^U. 


^*i. 


t.4.'. 


5VJ. 



c 
c 

c 



c 
c 

c 



10 

15 

2 
30 



AO 



*)0 
100 

101 



c 
c 
c 



^^ ^ _ ^4o. 
OATA TYP/" PL "." Lf^ "»" rtK "," T^ "/ ~ 597, 

'>9b. 

A /= C. 

CALL Hf ADf t< (6,0) bOO, 

H3I TP( 6,')10) 601. 

NL[ NF5-NLIN£^*L1 bOi. 

IF (NUMTKF.F'J.O) GO TJ 101 

**» SmIPPlNTS FkOm TkANSFLW STATIJNS are On TP OF TL A»^C:> 

NNDSL1=NANDSL* 1 . 

DO 100 I=1,NUMTKF 

SOURCE-^TRFNAMt I J 

DiJ 50 J = NN0Sl1»NANl)TL 

IF (0^/ !GIO( J) .Nl.TkF IDN< I ) I GO TO tO 

IF ( ARCWSK J) ,Lt- .0» r.O TO ^0 

IF ( J.LE.NANaiP) MTrf=I 

IF ( J.IT.NANJTP J ^Tr^> = ^ 

TYPF=TyP(NTYP » 

IF INTYP.fO.?) GU TO i^ 

D'l in "'■ItMU'^PLT 

IP IDE ST I0( J) .EO.PLTIl)N(K I I OL S T = t'L TNAff t K ) 

CO TO 30 

DO 20 K^l iNU-LFL 

IF (OF ST [i:/( J J .f O.LFL ION<K ) ) Of S T =LF L NAM ( K ) 

CONTINUE 

WASTF'=AkCK'iT ( J » 

TRCOST = Af<C'«ST(J)#A»*CUST(J)»OISC 

IF (i-ftST£.NF,0 J AV"T^C'JST/HASTr 

T^CGST*T?COST/lOOa. 

Y«CnST = Tt-'CnST/NU«YtiS 

YRWAST==MASTf./NUMYKS/100 0. 

WASTE "MASTE/1000. 

IF (NLINFb.LT.LrNPAG ) GO TO '.O 

CALL HFADEB ( b, 1 > 

WltlTF (6,510) 

W9ITE if^,'3iii 

ML! NFS'NL IMF Sm 

wPITE (ftf-JUt SOUi^CE fTYfCtl.ufST.TYPL^HflSTE.YR^iAST.TPCOST, 
1 YRCOST,AV 
p*Ll NtS=NL INES* 1 

CHHTIi^Ut 
CDN T iNUe 

IF (NUt-.PL T.FQ.OJ METUWN 

«*»• S^IPItNTS FkiU-1 PLANTS ASt ON PL Uti P f*. A«CS 



NNnTLl=NANOTL+l 

D:] poo I=l,NUripLT 

$nueCF=PLTNAn( I » 

DO ISO J'NnDTLI »NANOPM 

IF (OR IGIOt J) .Nf .PlT[DN< I » ) 



CO TO I-jO 



no 



1^0 

13C 



*;0 



ISO 



c 
c 

G 

C 

r 



SIO 



bll 



•^13 



IF (A'iC'fS r ( J) .Lf 
IF { J. Li .NANL/PL } 
IF ( J.GT.NANCf^L I 
T YPF "TY P(NTYP > 



IF 

on 
I f 



'J ) G u T G 
rt T Y P = ^ 
NrYP=3 

] TO Ll'> 



150 



(NTYf.tC.I) G 

UO K=lfNU1LFL 

(OFS TIO( J> .FO.lFlI!)N(-< ) ) 

TO 130 

N-1MK TK =NUriK r ( K I 

,1,-) 1^0 i^»^ = i ,N«iiKTK 

IF (nf:STIQ(J>.ta.riKTlL;N<i<,KK)) 

CON TINIJF 

HftS Tr = akC^ST ( J » 

/ V-0. 

r.^cosT = Ai^CHST(j>tAKcasT(j)<=aisc 

[F ( wASTF .Nf.O. ) AV-TtvCUST/HASTf 
TRCOST^Tt'CUST/ lOCO. 
YRCnST = Ti'CaST/NUMYk<S 
y^uf AST = WAS TF/NUMYk S/ 1000. 
WAS Tr = wASTS." / 101)0. 

IF (NL iNES.LT.LlNPA&t GO TO 'jO 
CALL HFADtR ibrl) 
Wt^ITE (^^Sinj 
wRI TF t 'nbl^ I 
NLI Nfi'NL INC S+ll 

-91 Tf ('.,SL3 I SUUkCF ,TYf'( 1) .Dl. STtTVP 
1 A V 
NL I NfS =NL I NF S ♦ 1 
CON T iNUh" 

CHM r iNOfc 



FUKMATS 



DcSr=LFLNAn(K;) 



D['iT-rKTNA,1(K»K.Kl 



,hASTLiYKHA'iT,TkCOST,Y«CUbT, 



b 3'J . 
bii . 
63^. 
t)33. 



F'mfATC'O", T 1 l,'*F AC IL ITY TYPfS: ^»L — HkUC£S5ING PLANT'S 
I ", LF — LANDFILL^ rfK — hAkx.CT, Tk — TkANSFfJ-' STn,"/) 

FHH .--AT ("0", Tt,,"QUANTI TIES Akf U4 THOUSANDS UF TONNTS. TOTAL "i 
I "COST AMn YFAklY AVEt'AGt COST A';L"/T6,"1n THOUSANDS OF OOllAKS,". 

I " AVERAGE IN CUlLLARS PEk T iJnnF . "/// T & , " FROf^ " » 

3T.>2 ," "-I 

^ <• SHIPPED TJ FACILITY "» 

S ■' '•/T'?, "FACILITY TYPt",T^3,"NArlfc",T3l . 

b "T YPE"*T*il 1 "TOTAL" »T'> -J, ••YEARLY", T M , "TOTAL ", Td'i," ANNUAL" ,T10Ui 
?"AVEHAGE"/T'.l ,"0UANTI TY",T')'5,"AvEyAGE",T('l ,"Cl)ST",TeS,"A ^EkAGE", 

i T'>q,"COST/TO'^"/ ) 

c^:?MAT(*.if,A8,Tl•),A*^,T^l,AH,T3l,A't»r38,Fl.0.l,TbI,F^0.UTt>b^ 
1 F10.1,T'iZ,FU).L,T96,Fia.t>t 
ttETU!<N 



bit-. 

63b. 
6 3/. 
630. 
b J 'J . 

6^0. 
fa'.l. 
b'ti^ . 
bA3. 
b't'i . 
b*.-! . 
b^b, 
b'. /. 
b^io . 

btiO. 
b^l. 

6!j3. 

bb^. 
bt>b. 
fc|j7. 



APPENDIX 9 



SOURCE CODE OF TFETCH FOR IBM 



c 

SUBROUTINE TFETCH 
C 

c 

c 
c 

C * THIS SUBROUTINE FETCHES THE SOLUTION FOUND 

C * BY THE MI LP PACKAGE. 

* * 

****************************************************************** 



****************************************************************** 
* * 

* 



C 
C 

c 
c 

INTEGER N0LC0L,N0C0L2,1,J,L,M,N,P 

DOUBLE PRECISION NAME , ENDATA ,ENDSEC , ROWS ,COLUMS ,RSECT ,CS£CT , 
1 ANAME,RNAM{6} ,ONTWST , ACTIV , SOLUTN 

DOUBLE PRECISION COLUMN ( 30 ), VALUES ( 2 5 ) 
INTEGER TYPE(200) ,VALNUM{50) ,ORIGI D , DESTI D 
REAL VALALF(50) 
DOUBLE PRECISION TITLE, RUNNAM 
INTEGER D,F,R,W,LINPAG, 
1 RUNBEG,RUNEND,RUNYRS,OUTREP 

C 

C *** GENERAL COMMON BLOCKS 

C 

COMMON/GENRAL/T ITLE ( 5 ) , RUNNAM ( 5 ) , D , F , R , W , LINPAG , 
1 RUNBEG,RUNEND,RUNYRS,OUTREP,DATE,DEDISC 

COMMON/NUMBS/NPAGE ,NLINES , 

1 RATE , 

2 NUMVEC ,NUMSRC,NUMTRF,NUMPLT,NUMLFL,NRM ,NRESRC , 

3 NUMMKT(9) 
COMMON/ARCDAT/ARCOST(1000) ,ORIGID(1000 ) ,DESTID( 1 000 ) , 

1 NANDST,NANDSP,NANDSL,NANDTP,NANDTL,NANDPL ,NANDPM ,NANUWL 

COMMON/OUT/ARCWST(iOOO) ,WST{20,3) ,WM(81) , DELTA (2 0,3) ,C0ST(6) ,DISC 
EQUIVALENCE (VALUES(l) ,VALNUM(1) ,VALALF(1) ) 
DATA ENDATA/'ENDATA '/ /ENDSEC/ ' $ENDSEC$ '/ »ROWS/ ' ROWS '/, 

1 COLUMS/' COLUMNS ' / ,RSECT/ ' RSECTION ' / ,CSECT/ ' CSECTIOND/ , 

2 ANAME/'NAME '/ fACTIV/ ' ACTIVITY '/ . 

6 RNAM(l)/'CAPITALCVfSOLUTN/ 'SOLUTION'// 

7 RNAM ( 2 ) / ' OPERATNG ' / ,RNAM ( 3 ) / ' TRANSPRT ' / ,RNAM ( 5 ) / ' REVENUES ' / , 

8 RNAM ( 6 ) / ' NETCOSTS ' / , RNAM { 4 ) / ' TOTCOSTS ' / ,ONTWST/ ' ONTWASTE ' / 
NANDWT=NANDPM+NUMTRF 

NANDWP=NANDWT+NUMPLT 

NANDWL=NANDWP+NUMLFL 

NRM = 

IF(NRESRC.EQ.O) GO TO 101 

DOlOO NR=1,NRESRC 

100 NRM=NRM+NUMMKT(NR) 

101 NANDWM=NANDWL+NRM 
NANDDT=NANDWM+NUMTRF 
NANDDP=NANDDT+NUMPLT 
NAN DDL=N AN DDP+N UM LF L 

C 

C SKIP THE NAME,XDATA RECORD 

C 

90 READ(F,END=500) 



READ(F)NAME,NOCOL 

CALL EXIT 

NOCOL2=2*NOCOL 

READ{F) (COLUMN(N) ,N=1 , NOCOL) 

READ(F) (TYPE(N) ,N=1 ,N0C0L2) 

J = 

DO 2 I=2,NOCOL2,2 

J=J+TYPE(I) 
2 CONTINUE 

J=J/4 

READ(F) (VALALF(N) ,N=1 , J ) 
G 

C PRINT THE IDENTIFICATION ARRAY, ONE VALUE PER LINE 

C 

WRITE(W,9)NAME 

9 FORM AT (IHI, 3 5X, 'PRINTOUT OF THE FILE ',A8) 
G 

J=0 

DO 20 N=l, NOCOL 

L=J/4+l 

M=L+1 

P=L+19 

IF(TYPE(2*N-1) - 2)10,19,19 

e 

C NUMERIC - INTEGER - VALUE 

C 

10 IF ( COLUMN (N ) .EQ. ROWS) NROWS=VALNUM ( L) 
IF(COLUMN(N) .EQ.ROWS) WRITE(W,11) COLUMN {N ) ,VALNUM { L ) 
IF( COLUMN (N) .EQ.COLUMS) NCOLS=VALNUM (L) 
IF(COLUMN(N) .EQ.COLUMS) WRITE(W,li) COLUMN (N ) ,VALNUM ( L ) 

11 FORMAT{1HO,35X,A8,' = ',18) 

19 J=J+TYPE(2*N) 

20 CONTINUE 
C 

C SKIP THE $ENDSEC$ OF THE IDENTIFICATION ARRAY. 

C 

READ(F) 
G 
C GET THE ROW AND COLUMN SECTIONS 

Q *************************************** 

C 

21 READ(F) NAME, NOCOL 
IF(NAME.EQ.ENDATA)GO TO 90 

22 WRITE(W,9)NAME 

READ(F) { COLUMN (N) ,N=1, NOCOL) 

READ(F) 

DO220 N=l , NOCOL 

IF(COLUMN(N) .EQ.ACTIV) NACT=N 
220 IF(COLUMN(N) .EQ.ANAME) NNAME=N 

WRITE(W,23) COLUMN(NACT) , COLUMN (NNAME ) 
23 FORMAT(1HO/1H ,A8,12X,A8) 

MINR0W=NR0WS-8 

MAXR0W=MINR0W+4 

IF(NAME.EQ.RSECT) COST(4)=0. 

1 = 



24 1=1+1 

REA:D(F) (VALUES(N} ,N=1 ,NCX:OL) 

IF(VALUES{1) .EQ.ENDSEC) GO TO 21 

IF(NAME.EQ.CSECT) GO TO 28 

IF(NAME.EQ.RSECT) GO TO 27 

WRITE(W,900) NAME 
900 FORMATC ','FILE ' ,A8 , ' FOUND WHEN RSECTION WAS EXPECTED.') 

CALL EXIT 
27 IFd.LT.MINROW.OR.I.GT.MAXROW) GO TO 24 

DO240 J=l,5 

IF{J.LE.3) JP=J 

IF(J,GT.3) JP=J+1 

IF(VALUES(NNAME) .EQ.RNAM(JP) ) GO TO 241 
24 CONTINUE 

241 COST(JP)=VALUES(NACT) 

IF ( JP . LE . 3 ) COST ( 4 ) =COST ( 4 ) +COST ( JP ) 

IF(JP.EQ.5) WRITE(W,26) RNAM ( 4 ) ,COST( 4 ) ,COST( 4 ) 

WRITE{W,26) VALUES{NNAME) , VALUES (NACT) ,COST(JP) 
26 FORMAT{lX,A12,2D20.e) 

GO TO 24 
2 8 CONTINUE 

IF( I .GT.NANDPM) GO TO 3 5 

ARCWST ( I ) =VALUES ( NACT ) 

GO TO 242 

35 IF(I.GT.NANDWT) GO TO 36 
NDIF=I-NANDPM 
WST(NDIF,1)=VALUES(NACT) 
GO TO 242 

36 IF(1.GT.NANDWP} GO TO 37 
NDIF=I-NANDWT 
WST(NDIF,2)=VALUES(NACT) 
GO TO 24 2 

37 IF(I.GT.NANDWL) GO TO 380 
NDIF=I-NANDWP 
WST(NDIF,3)=VALUES(NACT) 
GO TO 24 2 

380 IF(I.GT.NANDWM) GO TO 38 
NDIF=I-NANDWL 
WM(NDIF)=VALUES(NACT) 
GO TO 24 2 

38 IF(I.GT.NANDDT) GO TO 39 
NDIF=I-NANDWM 

DELTA (NDIF,1)=VALUES (NACT) 

GO TO 24 2 
3S- IFd.GT.NANDDP) GO TO 40 

NDIF=I-NANDDT 

DELTA (NDIF, 2 )=VALUES( NACT) 

GO TO 24 2 
40 IF(I.GT.NANDDL) GO TO 500 

NDIF=I-NANDDP 

DELTA (NDIF, 3 )=VALUES( NACT) 

242 WRITE(W,26) VALUES (N NAME ), VALUES ( NACT ) 
GO TO 2 4 

G 

C ALL T DATA NOW IN VECTORS. 
C 

500 RETURN 
END 
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